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„Apple Assembler“ wendet sich 
an alle, die bereits Anfängerkennt- 
nisse der 6502-Programmierung 
haben - z.B. aufgrund des Buches 
„Apple Maschinensprache“ — und 
nunmehr ein Nachschlagewerk für 
ihren Apple Il Plus/lle/llc suchen, 
in dem alle wichtigen ROM-Routi- 
nen sowie eine Vielzahl sonstiger 
Hilfsprogramme in einer systemati- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt dieses 
Buch über 40 Utilities, darunter 
mehrere völlig neuartige Program- 
me wie Double-Lores, Double Hi- 
res, Screen-Format u.a. 

Der erste Teil enthält ein Repetito- 
rum der wichtigsten Befehle, 
Adressierungsarten und sonstigen 
Besonderheiten des 6502. 
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ps 
und Tricks 


Mit ausführlichen 
Programmbeispielen 


Ulrich Stiehl 








Im zweiten Teil werden alle Adres- 
sen des Monitors zusammenge- 
stellt, die für Assembler-Program- 
mierer von Nutzen sein können. 
Darüber hinausfindet derLeser Un- 
terroutinen für hexadezimale Ad- 
dition/Subtraktion/Multiplikation/ 


Division, Binär-Hex-ASCIl-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit der 
Speicherverwaltung der Language 
Card und der lle-64K-Karte und 
enthält Move-Programme zum 
Verschieben von Daten in die und 
aus der Language Card sowie der 
64K-Karte. 

Der vierte Teil ist dem Applesoft- 
ROM gewidmet und listet eine 
große Anzahl nützlicher Interpre- 
ter-Adressen. Bei den Utility-Pro- 
grammen liegt das Schwergewicht 
auf Fließkommamathematik ein- 
schließlich Print Using. 
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Der letzte Teil behandelt den Text- 
und Graphikspeicher. Neben ei- 
nem professionellen Maskengene- 
ratorprogramm werden auch Routi- 
nen zur Double-Lores- und Dou- 
ble-Hires-Grafik vorgestellt. 


Aus dem Inhalt: 
6520-Repetitorium — Monitor-ROM 
— Speicherverwauung — Applesoft- 
ROM - Text- und Grafikspeicher 





Jobs’ Next Apple 


Das Jahr 1985 wird vielen Mikrocomputer- 
Herstellern in traumatischer Erinnerung 
bleiben. Bis Ende Januar herrschte eine 
trügerische Ruhe, denn die Läger des Ein- 
zelhandels waren vor Weihnachten mit Mi- 
kros vollgepumpt worden. Danach machte 
sich jedoch der „Pipeline-Effekt“ bemerk- 
bar: Der Weihnachtsberg war wider Erwar- 
ten nicht abgebaut worden, und Nachbe- 
stellungen fanden infolgedessen kaum 
statt. IBM erkannte als erste Firma die 
Zeichen der Zeit und trug ihren mit gro- 
Bem Werberummel lancierten PC-Junior 
bereits vor der europäischen Markteinfüh- 
rung zu Grabe. Danach überschlugen sich 
förmlich die Hiobsbotschaften in den Wirt- 
schaftsblättern. Allenthalben wurden Ge- 
winneinbußen und vielfach sogar Verluste 
gemeldet, wobei die branchenweite Flaute 
auch die Hersteller von Großanlagen in 
Mitleidenschaft zog (z.B. Wang, Control 
Data u.a.). Insofern stellen die wirtschaftli- 
chen Entwicklungen bei Apple keinen Ein- 
zelfall dar. Bei Apple kommen jedoch ne- 
ben den „exogenen“ Ursachen (Markt- 
flaute, EDV-Müdigkeit) die „endogenen“ 
Einflüsse hinzu: Am 17. September ver- 
kündete Steve Jobs der verdutzten Pres- 
se, daß er die Firma Apple verlassen und 
eine eigene Firma namens „Next“ grün- 
den werde, die den „nächsten“ Apple ent- 
wickeln werde. Um dies alles psycholo- 
gisch erklären zu können, muß man bis 
zur „Garagenzeit“ der beiden Gründer 
Wozniak und Jobs zurückgehen und mit 
einem irrigen Klischee aufräumen: Richtig 
ist, daß Steve Wozniak als das technische 
Genie gilt, das den Apple Il konzipiert und 
in vielen Hard- und Software-Details 
selbst entwickelt hat. Falsch ist dagegen 
das Klischee, Steve Jobs sei das Ökono- 
mische Genie gewesen, das den Apple Il 
zur Marktreife geführt habe. Vielmehr hat 
es Steve Jobs lediglich verstanden, die 
richtigen (?) Manager anzuheuern, zu- 
nächst Mike Markkula von Intel und später 
John Sculley von Pepsi-Cola. 

Steve Jobs, den es gewurmt haben muß, 
daß er nicht den technischen Durchblick 
eines Wozniak oder den wirtschaftlichen 
Weitblick eines Markkula hatte, machte 
sich dann seit etwa 1983 zum Entwick- 
Iungschef der Macintosh-Abteilung, wobei 
er die denkbar größte Marketing-Todsün- 
de begang, nämlich die völlige Ignorierung 
des Marktes und der Wünsche der potenti- 
ellen Käufer. Als dann Anfang dieses Jah- 
res anläßlich einer Aktionärsversammlung 
der Apple Il mit keinem Wort erwähnt wur- 
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de, obwohl der Löwenanteil der Erlöse 
vom Apple II und nicht vom Macintosh 
herrührte, kam es zum großen Eklat und 
kurz darauf zum Ausstieg von Steve Woz- 
niak aus dem Konzern. Es wurde durch 
Steve Wozniak bekannt, daß viele Neuhei- 
ten für den Apple Il in der Schublade ver- 
moderten, weil die Apple-Il-Weiterent- 
wicklung von der Macintosh-Abteilung 
nicht zugelassen wurde. Im Laufe der er- 
sten Jahreshälfte verschlechterte sich 
dann die Ertragslage dramatisch. Bei- 
spielsweise sank der Aktienkurs seit der 
Macintosh-Ära von $62.00 (Mitte 1983) bis 
auf $16.00 (September 1985). Nun zog 
John Sculley die Notbremse an. Zunächst 
wurde die Belegschaft um 20% reduziert, 
dann wurde Jobs im Juni die Entschei- 
dungsvollmacht für die Macintosh-Division 
entzogen. Soeben hat Jobs Apple verlas- 
sen und eine Nachfolgefirma unter dem 
sinnträchtigen Namen „Next“ in Sunny- 
vale, Kalifornien gegründet. Im Gegenzug 
strengt der Apple-Konzern jetzt einen 
Wettbewerbsprozeß gegen Jobs an, der 
sich wahrscheinlich über Monate hinzie- 
hen wird. Wird es damit neben dem „first“ 
Jobs-Macintosh bald einen kompatiblen 
„next“ Jobs-Macintosh geben? Immerhin 
hat Jobs mit einem Aktienanteil von 85 
Millionen Dollar die Finanzkraft, um dem 
angeschlagenen „Mutterhaus“ Paroli zu 
bieten. 

Dem verunsicherten Apple-Il-Besitzer 
stellt sich die Frage, wie dieses Drama, 
das die „FAZ“ mit der Fernsehserie „Dal- 
las“ vergleicht, weitergehen wird. Bezüg- 
lich des Apple II kann man zumindest kon- 
statieren, daß nach der Befreiung von der 
Jobs-Last fieberhaft an Neuentwicklungen 
gearbeitet wird, von denen noch in diesem 
Herbst mehrere erscheinen werden, z.B. 
neue ROMs (s. Peeker 10/85), Speicher- 
erweiterung bis 1 Megabyte, 800K-3,5- 
Zoll-Unidisk mit neuem ProDOS und Pas- 
cal, farbfähiger Imagewriter Il, Farbmonitor 
für IIc u.a. All dies läßt uns hoffen. Nach- 
dem jedoch das jugendlich-frische Apple- 
Image mit den schlacksigen Sonnyboys 
aus Southern California lädiert ist, werden 
in Zukunft nur Qualität und Preis überzeu- 
gen können. 


Ulrich Stiehl 
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Das hier vorgestellte Programm wen- 
det sich an den fortgeschrittenen As- 
semblerprogrammierer, der eigene 
Spiele oder Animationen mit professio- 
neller Grafik erstellen möchte. Mit ei- 
nem komfortablen Sprite-Editor kön- 
nen Objekte erstellt und in eigene As- 
semblerprogramme eingebunden wer- 
den. Die Darstellung der Sprites über- 
nimmt das Modul ASTA. 


Ziel war die Entwicklung einer Routine, die 
möglichst viele Figuren gleichzeitig flim- 
merfrei über den Bildschirm bewegt. Da- 
bei sollte die Ansteuerung durch andere 
Programme so einfach wie die Verwen- 
dung der Shapes in Applesoft sein. 
Shapes sind für diese Aufgabe viel zu 
langsam. Deshalb müssen die Figuren auf 
andere Weise abgespeichert werden. Als 
Lösung bietet sich die Verwendung von 
Sprites an, wie sie vom Commodore 64 
her bekannt sind. Eine Figur wird bewegt, 
indem die alte Figur gelöscht und etwas 
versetzt neu gezeichnet wird. Dabei 
kommt es zu einem Flimmern auf dem 
Bildschirm, weil zeitweise die Figur nicht 
oder nur teilweise auf dem Bild erscheint. 
Deshalb ist es besser, ein Bild erst zu 
zeigen, wenn es fertig gezeichnet ist. Die- 
se Trickfilmtechnik ist mit dem Apple leicht 
zu realisieren, da zwei unabhängige Gra- 
fikseiten (Pages) vorhanden sind. Wäh- 
rend man eine Seite zeigt, wird in der 
anderen das nächste Bild fertig gezeich- 
net. Dann kann man auf die andere Seite 
umschalten und umgekehrt verfahren 
(sog. Page-Flipping). 

Die hier vorgestellte Routine arbeitet mit 
drei Seiten. Page 1 (im Bereich $2000- 
$3FFF) und Page 2 ($4000-$5FFF) wer- 
den abwechselnd zur Darstellung benutzt, 
während in Page 3 ($6000-$7FFF) nur der 
Hintergrund gespeichert ist. Dies ist erfor- 
derlich, da die Objekte den Bildschirm 
überschreiben, und zu deren Löschung 
der Hintergrund wieder hergestellt werden 
muß. 

Die Routine erlaubt bis zu 30 gleichzeitig 
bewegte Objekte, wobei jedoch 127 ver- 
schiedene Sprites verwaltet werden, und 
liefert dabei — je nach Anzahl und Größe 
der Objekte — 5-25 Bilder pro Sekunde. 
Auf einfache Weise können auch alle vor- 
handenen. Farben benutzt werden. Der 
Name der Routine ist ASTA (Animation 
von Sprites mit Tabellenhilfe). 


1. ASTA 
1.1. Die Sprites 


Die Abspeicherung der Figuren ist eine 
Abwandlung des in (1) beschriebenen 
Konzepts. Im Grafikspeicher sind jeweils 
sieben nebeneinanderliegende Punkte zu 
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einem Byte zusammengefaßt. Wobei eine 
1 in den Bits 1-7 (die Bits sind im folgen- 
den von 1 bis 8 durchnumeriert) einem 
gesetzten Punkt entspricht. Das achte Bit 
beeinflußt die Farbe der Punkte. Bei einem 
Sprite werden alle Punkte der Figur direkt 
zu Bytes zusammengefaßt. Zum Zeichnen 
des Sprites braucht man nur noch die 
Bytes in den Speicher zu poken. 


Wenn man ein solches Sprite horizontal 
verschieben möchte, tritt jedoch ein Pro- 
blem auf: Beginnt man ein Byte später, hat 
man die Figur gleich um sieben Punkte 
verschoben. Wie kann man aber die Figur 
um einzelne Punkte verschieben? Dazu 
könnte man mit den Shift-Befehlen (ASL/ 
LSR) alle Bytes in eine Richtung verschie- 
ben, jedoch bekäme man dann Schwierig- 
keiten mit dem 8. Bit und brauchte auch 
mehr Zeit für das Verschieben als für das 
Zeichnen des Sprites. Deshalb ist es ein- 
facher und vor allem schneller, für jede der 
sieben Möglichkeiten ein entsprechend 
geshiftetes Sprite (sog. Bitsprite) abzu- 
speichern. 

Damit die ASTA-Routine die Sprites richtig 
zeichnen kann, müssen ihnen noch einige 
Angaben hinzugefügt werden. Vor jedem 
Bitsprite werden mit zwei Bytes die Anzahl 
der Bytes je Zeile und die Anzahl der 
Zeilen angegeben. Vor den sieben Bitspri- 
tes muß noch eine Bitsprite-Tabelle mit 
den einzelnen Startadressen stehen. 
Schließlich braucht man noch eine Sprite- 
Tabelle (STAB) mit den Adressen aller 
Sprites; die ASTA-Routine benötigt dann 
nur noch eine Nummer und sucht sich 
mittels der beiden Tabellen und der ange- 
gebenen Bildschirmposition das richtige 
Bitsprite heraus. 

Anhand des Beispiels in Bild 1 können Sie 
das System noch einmal nachvollziehen. 
Um die Erstellung der Sprites zu vereinfa- 
chen, ist es naheliegend, die mühselige 
Arbeit mit einem Programm zu erledigen. 
Mit dem weiter unten beschriebenen 
Sprite-Editor können Sie ganz einfach die 
Sprites entwerfen und berechnen lassen. 


1.2. Die ASTA-Positionstabelle 


Ab’ Adresse $8000 steht die Positionsta- 
belle, in der alle Angaben über die zu 
zeichnenden Objekte stehen. Zunächst 
fällt auf, daß sie in drei große Bereiche 
aufgeteilt ist. Die einzelnen Variablen ha- 
ben dabei jeweils die gleiche Endung: 

® ...TD - nächstes Bild 

(zu zeichnende Objekte), 

® ..TZ - angezeigtes Bild 
(Zwischenspeicher), 

® ..TL_- letztes Bild 

(zu löschende Objekte). 

Von dem aufrufenden Programm braucht 
nur der erstgenannte Bereich verändert zu 


GRAfik 4.4 


werden. Die beiden anderen Bereiche 
werden von der ASTA-Routine erzeugt 
und dienen der Verwaltung. Jeder Variablen 
ist ein Feld von 30 Bytes zugeordnet, wo- 
bei das erste Byte für das erste Objekt, 
das zweite Byte für das zweite Objekt vor- 
gesehen ist usw. Dadurch ist es in Assem- 
bler sehr einfach, einen Wert zu lesen 
oder zu schreiben. Man braucht nur die 
Nummer des Objekts als Index zu laden 
(im X- oder Y-Register) und kann die Wer- 
te dann mit der indizierten Adressierung 
(z.B. LDA SPRTD,Y) abrufen. 





1.2.1. Die Bedeutung der einzelnen 
Variablen 


SPRTD ($8000) — Sprite-Nummer (im Be- 
reich 0-127): Es können bis zu 127 ver- 
schiedene Sprites verwendet werden. 
Sprite-Nummer O bedeutet, daß das ent- 
sprechende Objekt nicht gezeichnet wer- 
den soll. 

XWRTD ($801E) — X-Koordinate (im Be- 
reich 0-139): ASTA ist auf die Ausnutzung 
der Farbmöglichkeiten des Apples ausge- 
legt. Im normalen Raster (X im Bereich O- 
279) hängt die Farbe von der X-Position 
ab. Alle Punkte mit geraden X-Koordinaten 
sind grün, alle Punkte mit ungeraden X- 
Koordinaten violett; bei gesetztem Bit 8 
entsprechend orange und blau. Sind zwei 
benachbarte Punkte gesetzt, ergibt sich 
weiß. Daraus folgt, daß ein farbiges Sprite 
in X-Richtung nur in Zweierschritten be- 
wegt werden darf, da sonst die Farben 
wechseln. Durch die Halbierung der Ein- 
teilung ist dieses Problem beseitigt. Wird 
XWRTD um eins erhöht, bewegt sich das 
Sprite um zwei Punkte nach rechts und 
behält die richtige Farbe. 

XBYTD ($803C) — interne ASTA-Variable 
(X-Byte, 0-28): Diese Variable muß vom 
aufrufenden Programm nicht gesetzt 
werden. 

XBITD ($805A) -— interne ASTA-Variable 
(Bitsprite-Nummer): ASTA berechnet mit 
XWRTD das erste Byte des Sprites in der 
Zeile und die Nummer des Bitsprites (muß 
ebenfalls nicht gesetzt werden). 

YWRTD ($8078) — Y-Koordinate (Bereich 
0-191): Die Y-Koordinate entspricht der 
normalen Koordinate, d.h. O0 = oben, 191 
= unten. 

YMATD ($8096) — untere Bildgrenze (im 
Bereich 0-191): Die Y-Koordinate eines 
Objektes kann nach unten begrenzt wer- 
den (z.B. weil es hinter einer Mauer her- 
vorkommt). Unterhalb von YMATD wird 
das Sprite nicht mehr weiter gezeichnet. 
DRWTD ($80B4) — Zeichenmodus, Bit-8- 
Flag (0 = normal, 1 = überzeichen): Im 
Normalmodus wird beim Zeichnen der 
Hintergrund übernommen und das alte 
Sprite gelöscht, bevor das neue Sprite 
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gezeichnen wird. Bei besonders yroßen 
Sprites ist jedoch ein anderer Zeichenmo- 
dus zeitlich vorteilhafter. Wenn Bit 8 von 
DRWTD gesetzt ist, wird nur das neue 
Sprite gezeichnet, ohne den Hintergrund 
zu übernehmen und ohne das alis Sprite 
zu löschen. 

MSKTD ($80D2) — Farbrmaske ($80 = in 
vertiert, $00 = normal): Ist Bi 8 von 
MSKTD gesetzt, werden die Farben des 
Sprites invertiert d.h. aus grun wird oran- 
ge, aus violeti wird blau und umgekenri 


Die X,Y-Koordinaten geben die obere, lin- 
ke Ecke des zu zeichnenden Objekts an 


Normalerweise brauchen >Sıe alle Varia- 
blen nur einmal einzusetzen. Danach 
reichi meist die Veränderung einzelner 
Werte. ASTA laßt alle Daten in der ID- 
Tabelle unverändert stehen (außer XBI1D/ 
XBYTD). Um die POSTABelle ganz zu lö- 
schen, können Sie die POSINIT-Routine 
aufrufen. 


1.3. Der Aufruf von ASTA 


Wie bringen Sie ASTA in Ihrem eigenen 
Programm unter? Sehen Sie sich dazu das 
nachfolgende allgemeine Beispiel für ein 
Spiel an (siehe hierzu auch ASTA- 
.DEMO): 


JSR POSINIT 
JSR INIT 
LOOP LDA $0054 
LDA #$40 
STA HPAG 
JSR PROGRAMM 
JSR ASTA 
JSR GRAFIK 


LDA $0055 

LDA #$20 

STA HPAG 

JSR PROGRAMM 
JSR ASTA 

JSR GRAFIK 


CLC 
BCC LOOP 


Zunächst müssen alle Variablen gelöscht 
werden. Zu diesem Zweck wird POSINIT 
($85BB) aufgerufen, um die ASTA-Posi- 
tionstabelle zu löschen. Danach folgt die 
Initialisierungsroutine des Programms. 
Dort wird z.B. der Hintergrund eingeladen, 
der in alle Seiten kopiert wird, der Punkte- 
zähler wird auf Null gesetzt, die Anfangs- 
koordinaten der einzelen Objekte werden 
in die Positionstabelle geschrieben und 
die Grafik wird eingeschaltet. In der Haupt- 
schleife wird nacheinander das Hauptpro- 
gramm (PROGRAMM), ASTA ($8400) und 
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GRAFIK aufgerufen: Das Haupiprogramm 
berechnet die neuen Positionen der Ob- 
jekte und ermittelt z.B. Punktgewinne. 
ASTA zeichnet die Objekte, und mit GRA- 
FIK kann der Punktestand angezeigt oder 
das Bild zusätzlich verandert werden. In 
der Schleife erfolgt auch die Umschaltung 
der zu zeigenden und neu zu Zeichnenden 
Seiten. Dabei gibt HPAG ($00E6) die zu 
zeichnende Seite an ($20 = Page 1, $40 
= Page 2). Diese Umschaltung ist bewußt 
nicht in ASIA hineingenommen worden, 
um noch eine Veranderung des Bildes 
durch weitere Routinen nach dem Aufruf 
von ASIA zu ermöglichen 


2. Der Sprite-Editor 
2.1. Programmaufbau 


Das Programm besteht aus zwei Teilen: 
das Hauptprogramm SPRITE.EDIT in Ap- 
plesoft und einer kleinen Assemblerrouti- 
ne SPRITE.EDIT.ASS mit einigen 
Shapes. Für die Abspeicherung des Spri- 
tes wird nicht ein Array, sondern ein abge- 
grenzter Speicherbereich benutzt, in dem 
mit PEEK und POKE die Punkte abgespei- 
chert werden. Dadurch wird weniger Spei- 
cherplatz benötigt als durch einen ent- 
sprechend großen Array. Außerdem ist es 
auch einfacher möglich, einige Berech- 
nungen durcn ein Assemblerprogramm 
erledigen zu lassen. Beim Abbruch des 
Programms bleibt das eingegebene Sprite 
auch erhalten, wenn das Programm mit 
RUN neu gestartet wird. 

Um die Ausiuhrungszeiten herabzuset- 
zen, kann das Programm einfach compi- 
liert werden. Fur den TASC-Compiler muß 
nur der HIMEM-Befehl gelöscht und bei 
der Speicherverteilung die Startadresse 
für Variabeln auf 29000 gesetzt werden. 
Bei anderen Compilern ist darauf zu ach- 
ten, daß der Bereich von 16384-29000 für 
die Grafik und das Datenfeld frei bleibt. 


2.2. Die Erstellung eines Sprites 


Wählen Sie mit „1“ den Editor an. Es steht 
Ihnen ein 42 x 42 großes Feld zur Verfü- 
gung, innerhalb dessen Sie Ihr Sprite ge- 
stalten können. Den Cursor können Sie 
wie im Textmodus mit I, J, K, M bewegen. 
Wenn Sie gleichzeitig die Ctrl-Taste drük- 
ken, wird die Position, an der sich der 
Cursor befindet, invertiert. Mit „F“ können 
Sie das Farbbit in einer Zeile invertieren. 
Durch Eingabe von „L“ wird das Sprite 
gelöscht, und mit „/" kann es um ein Bit in 
jede Richtung verschoben werden. Als 
Hilfe können Sie durch Eingabe von „7?“ 
eine Übersicht aller Editor--Kommandos 
abrufen. 


Neben dem großen Feld wird das Sprite in 
Orginalgröße gleich viermal dargestellt, 
damit alle nögiichen Farbkombinationen 
gleichzeitig zu sehen sind. Links oben se- 
hen Sie das Sprite so, wie es normalerwei- 
se mit ASIA dargestellt wird. Wenn das 
Farbbit inveriiert wird (MSKTD = $80), 
erscheint es wie links unten dargestellt. 
Die beiden rechts abgebildeten Sprites 
können Sie durch Verschieben um eine 
Stelle in X-Richtung erzeugen. 

Mit „ESU  verlaßt man den Editor. 

Das Programm bietet auch die Möglich- 
Keit, ein so erstelltes Sprite abzuspeichern 
oder ein anderes >prite von Diskette zu 
laden. 


2.3. Die Berechnung der Bitsprites 


Hauptauiyabe des Programms ist die Be- 
rechnung der Bitsprites. Es erzeugt Jedoch 
nicht direkt die Bytes der Sprites, sondern 
liefert einen Assembler-Textfile, der erst 
von einem Assembler übersetzt werden 
muß. Diese auf den ersten Blick etwas 
umständliche Methode hat einige Vorteile. 
In den Adreßtabellen werden absolute 
Startadressen verlangi, deshalb ist das 
Verschieben des Sprites in den ge- 
wünschten Speicherbereich mit einen As- 
sembler leichter zu ereichen. Außerdem 
Kann der Speicherplatz besser ausgefüllt 
werden, wenn man die Sprite-Tabellen 
zwischen Programmteilen unterbringen 
will. Durch kleine Änderungen kann das 
Programm an das Format der verschiede- 
nen Assembler leicht angepaßt werden. 
Bei aer Berechnung der Sprite-Tabelle 
können Sie zwischen drei Möglichkeiten 
waniıen: 


Normal — Es wird ein Sprite erzeugt, das 
aus 7 Bitsprites besteht. 

Normal (alle Farben) — Hier werden zwei 
Sprites erzeugt, wobei das zweite Sprite 
gegenüber dem ersten um einen Punkt 
verschoben ist. Jedoch werden dazu nur 8 
Bitsprites benötigt und nicht 2 x 7 Bitspri- 
tes wie bei der Benutzung von zwei nor- 
malen Sprites. Beim zweiten Sprite ist 
dem Label ein „S“ hinzugefügt. 
Einzel-Sprite -— Wenn im voraus feststeht, 
daß ein Objekt nur in Y-Richtung bewegt 
wird, brauchen Sie nur ein Bitsprite. Wel- 
ches Bitsprite Sie benötigen, können Sie 
mit folgender Formel berechnen (X im Be- 
reich 0-1391): 

Bitsprite-Nummer = (X x*2/7-INT(Xx 
2/7))*7. 

Nachdem Sie die Art der Berechnung ge- 
wählt haben, folgen Fragen nach dem 
Filenamen und den im Assemblerfile zu 
verwendenden Labels. Die Größe des 
Sprites wird automatisch festgelegt. Beim 
Einzel-Sprite können Sie sie selbst 
wählen. 
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2.4 Beispiel 


Wenn alle Sprites berechnet sind, wird 
nach folgendem Schema der Sourcecode 
zusammengefügt (Merlin-Assembler): 


ORG $8300 
STAB DA $0000 
DA SPRITE1 
DA SPRITE2 
DA SPRITE3 


SAV STAB 


ORG $9000 ;(Beispiel) 
PUT SPRITE1 
PUT SPRITE2 
PUT SPRITE3 


SAV SPRITES 


Zunächst werden in der Sprite-Tabelle die 
Startadressen der einzelnen Sprites ange- 
geben, dann folgen erst die eigentlichen 
Sprites, die in jeden freien Bereich gelegt 
werden können. Wenn der PUT-Befehl 
nicht in Ihrem Assembler vorhanden ist, 
müssen Sie alle Files nacheinander in den 
Speicher laden und dann assemblieren. 


Quellenverzeichnis 

(1) Sprite-Designer für Apple Il, Home- 
computer, 12/83, S.34. 

(2) Apple-Il-Grafik-Organisation, c’t, 6/84, 
S.40. 

(3) Grafik-Tuning, Teil 3, c’t, 8/84, S.77. 


ASTA 


BSAVE ASTA, A$8409, L$PATA 


Bernd Klawonn 


oo o_ıVDum Au vr 


ORG $849® 
ANZAHL = 39 
POS EQU $19 
XBYTE EQU $1A 
YWERT EQU $Ic 
STLO EQU $1D 
STHI EQU STLO+1 
XLAE EQU $IF 
XCOUNT EQU $98 
YCOUNT EQU $99 
HPAG EQU $E6 
SCRLO EQU $06 
SCRHI EQU SCRLO+1 
PSEUDO $FFFF 
BUFFLO $E® 
BUFFHI EQU BUFFLO+1 
FMASK $E2 
YMAX $E3 
* 


10 


Aufbau des Sprites TEST 


TEST DA 


DA 
BITSPRITEl DFB 
DFB 
DFB 
DFB 


BITSPRITE7 DFB 
DFB 
DFB 
DFB 


BITSPRITELl 


BITSPRITE7 
2,5 

127,7 

nie 

I2T;T 


3,5 
64,127,3 
ß,1,6 
64,127,5 


‚Länge (X), Breite (Y) 





Beispiel eines Sprites mit entsprechenden Bitsprites. 


KRITIK 


* 


ASTA -— Animation von Sprites * 
mit Tabellenhilfe * 


KRRTRTTTTTTTTTEIIEIIIEIIIIRK 


‚Tab. Sprite-Anzahl 
;Pos. in der Tab. 


‚Länge des Sprites 


‚X-Zähler 
‚Y-Zähler 


;Grafik-Page (Hi) 
;‚Grafik-Page-Adr. 


‚Adresse d. Puffers 


‚(ab $6999) 


;Farbmaske (Bit 8) 





ee a a nn ne 2 5 
* 
* ASTA 
* HPAG - Hi-Byte, HIRES-Page 
* PTAB - Positionstabelle 
. 
RR 
* 
* Sprites löschen 
* 
LDA #ANZAHL 
STA POS 
DEC POS ;‚Pos.-Zähler - 1 
LDY POS ;POS als Ind. laden 
LDA SPRTL,Y ;Sprite = 9? 
BEQ ASTA2 ‚wenn ja, weiter 
JSR SLOESCH ;‚Sprite löschen 
LDA POS ;POS <> 9? 
BNE ASTAL ‚wenn ja, weiter 


Sprites zeichnen 


LDY #+$0® 
STY POS ;POS auf ® setzen 


LDA SPRTZ, 
STA SPRTL, 
LDA SPRTD, 
STA SPRTZ, 
LDA XWRTZ, 
STA KXWRTL, 
LDA XWRTD, 
STA KXWRTZ, 
LDA XBYTZ, 
STA XBYTL, 
LDA XBYTD, 


;POS-Tabelle 
‚aktualisieren 


msi = SZ „ Su = SZ „ Su 2 „Su = = > 
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8439: 
845C: 
843F: 
8442: 
8445: 
8448: 
844B: 
844E: 
8451: 
8454: 
8457: 
845A: 
845D: 
8469: 
8463: 
8466: 
8469: 
846C: 
846F: 
8472: 
8475: 


8478: 
84A7B: 
847D: 
8489: 
8481: 
8484: 
8487: 
BABA: 
848D: 
8490: 


8493: 
8496: 
8498: 
8A9A: 
849D: 
84Aß: 


8AA2: 
84A5: 
8AAT: 
8449: 
84AB: 
8AAD: 
84Bß: 


84Bl: 
84B4: 
84B5: 
84B6: 
84B9: 
84BB: 
84BC: 
SABF: 


84C1: 
8403: 
8406: 
8407: 
8409: 
SACA: 
84CB: 
84aCcD: 
SACF: 


84D1: 
84D3: 
84D5: 
84D7: 
84D8: 
84ADA: 


84aDC: 
8ADE: 
84El: 
84E3: 
84E6: 
84E8: 
84EB: 


84ED: 
SAEF: 
84Fl: 
84F3: 
84F5: 
"84F7: 
84F9: 


12 


99 


> 


BI’ 


B9 
99 


39 
B9 


B9 
99 
B9 
39 
B9 
us 


5] 
B9 


B9 
DA 
A8 
B9 
85 
c8 


85 


2C 
4A 
3A 
5A 
AA 
68 
58 


68 
86 


96 
86 
A4 
94 
B4 
A4 
c2 
B2 
D2 
c2 


0) 
28 
1E 


EO 


010 
1D 


90 
1E 


19 
5A 


1D 
lE 
1D 


99 
1D 
IF 


1D 
09 


19 
1C 
1A 
58 


76 
ES 


IF 


1C 
E3 
d4 
29 
1C 


8l 


83 


83 


82 


82 


82 


82 


101 
192 
193 
194 
105 
196 
107 
108 
199 
119 
111 
112 
113 
114 
115 
116 
ir 
118 
119 
129 
121 
122 
123 
124 
125 
126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
15® 
151 
152 
153 
154 
155 
156 


STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 


LDA 
BEQ 
LDA 
TAX 
LDA 
STA 
STA 
LDA 
STA 
STA 


LDA 
BPL 
LDA 
STA 
JSR 
BNE 


ASTA4 
ASTAS 


JSR 
INC 
LDY 
CPY 
BEQ 
JMP 
ASTA6 RTS 
” 


XBYTZ,Y 
XBITZ,Y 
XBITL,Y 
XBITD,Y 
XBITZ,Y 
YWRTZ,Y 
YWRTL,Y 
YWRTD, Y 
YWRTZ,Y 
YMATZ,Y 
YMATL,Y 
YMATD, Y 
YMATZ,Y 
DRWTZ,Y 
DRWTL,Y 
DRWTD,Y 
DRWTZ,Y 
MSKTZ,Y 
MSKTL,Y 
MSKTD,Y 
MSKTZ,Y 


SPRTD,Y 
ASTAS 
XWRTD,Y 


BYTAB,X 
XBYTD,Y 
XBYTZ,Y 
BITAB,X 
XBITD,Y 
XBITZ,Y 


DRWTD,Y 
ASTA4 
+$09 
SPRTZ,Y 
UEBERZ 
ASTA5 


SZEICH 
POS 

POS 
#+ANZAHL 
ASTA6 
ASTAS 


;Sprite = 9? 
‚wenn ja, weiter 
‚Lade XWerRt 


‚ermittel XBYTE 


‚und XBIT 


;8 Bits gesetzt? 
‚nein, dann weiter 
;‚Sprite später 
‚nicht löschen 
;‚Sprite zeichnen 


;‚Sprite zeichnen 
;POS-Zähler erhöhen 


‚Letzte Position? 
‚wenn ja, -> fertig 


#*---—-—-—-—---—-- - - - - - - - - - - - - - - -------{ 


* Unterprogramme 


* 
SLOESCH LDA 
ASL 
TAY 
LDA 
STA 
INY 
LDA 
STA 


LDY 
LDA 
TAY 
LDA 
TAX 
INY 
LDA 
STA 
STX 


LDY 
LDA 
STA 
INY 
LDA 
STA 


LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
* 
SLOESCHl LDA 
STA 
LDY 
CPY 
BCC 
LDY 
BCS 


SPRTL,Y 


STAB,Y 
STLO 


STAB,Y 
STHI 


POS 
XBITL,Y 


(STLO),Y 


(STLO),Y 


STHI 
STLO 


#509 


(STLO),Y 


XLAE 


(STLO),Y 


YCOUNT 


POS 
XBYTL,Y 
XBYTE 
YWRTL,Y 
YWERT 
YMATL,Y 
YMAX 


XLAE 
XCOUNT 
YWERT 
YMAX 


SLOESCH2 


+$29 


SLOESCH4 


;:SPR-Nummer laden 
;A = Sprite-Numnmer 


‚Sprite-Ad. laden 
;Lo-Byte 
;Hi-Byte 


;‚Tab.-Pos. laden 
;XBI,Y - Bitsprite 


‚Bitsprite-Adresse 
‚Lo-Byte 


;‚Hi-Byte 


‚Länge des Sprites 


‚Breite des Sprites 


;XBY,Y — X-Byte 


:YWR,Y -— Y-Wert 


;YMAX des Sprites 


;:Schleife für Y 


‚untere Bildgrenze 


84AFB: 
84FE: 
8509: 
8502: 
8594: 
85ß6: 
8599: 
85ßB: 


850D: 
8ößr: 
8511: 


8513: 
8515: 


8517: 
8518: 
8519: 
851B: 
851D: 
85lF: 
8521: 
8523: 


8524: 
8527: 
8528: 
8529: 
BBRC: 
852E: 
852F: 
8532: 


8534: 
8536: 
8539: 
853A: 
855C: 
853D: 
853E: 
8549: 
8542: 


8544: 
8547: 


85AA: 
854C: 
854E: 
8559: 
8551: 
8553: 


8555: 
8557: 
855A: 
855C: 
855F: 
8561: 
8564: 


8566: 
8569: 
856B: 


856D: 
856F: 
8571: 
8573: 
8575: 
8577: 
8579: 
857B: 
85STE: 
8589: 


8582: 
8585: 


8587: 
8589: 
858B: 


858D: 
8599: 
8592: 
8594: 
8596: 


8598: 


B9 
DA 
A8 
B9 
85 
c8 
B9 
85 


A4 
B9 
A8 


AA 
c8 
Bl 
85 
86 


8D 
8E 


B9 
85 
A2 


A5 
85 
A4 
c4 
90 
A® 
BO 
B9 
05 
85 


9B 


011) 


no 
1D 


0 
1E 


19 


1D 


1D 
lE 
1D 


8F 
8E 


0) 
IF 


1D 
09 


19 
SC 
1A 
78 
1C 
96 
E3 


D2 
E2 
02 


IF 


10 
E3 
04 
29 
1D 
9B 
E6 
07 


DB 
d6 


1A 
dB 
FF 


7F 
E2 
06 


86 


85 


80 


85 


83 


80 


85 
85 


80 
80 
80 


80 


86 


85 


FF 


157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
174 
175 
176 
ir7T 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
292 
293 
204 
205 
206 
207 
208 
299 
219 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 


SLOESCH2 LDA 


%* 


SLOESCH3 


* 


* 


SLOESCH4 


SZEICH 


. 
SZEICHl 


SZEICH2 


* 


SZEICH3 


* 
MOD 
PATCH 


* 
SZEICH4 


ORA 
STA 
ORA 
STA 
LDA 
STA 
STA 


LDY 
CPY 
BCS 


LDA 
STA 


INX 
INY 
DEC 
BNE 
INC 
DEC 
BNE 
RTS 


LDY 
LDA 
TAY 
LDA 
TAX 
INY 
LDA 
STA 
STX 


STA 
STX 


LDY 
LDA 
STA 
INY 
LDA 
STA 


LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 


LDA 
STA 
LDX 


LDA 
STA 
LDY 
CPY 
BCC 
LDY 
BCS 
LDA 
ORA 
STA 


LDA 
STA 


LDY 
CPY 
BCS 


LDA 
ORA 
AND 
EOR 
STA 


INX 


GADRHI,Y 

HPAG ;HGR-Page (Hi) 
SCRHI ‚abspeichern 
#+27011@00@® ;Hintergrund (Hi) 
BUFFHI ‚abspeich. ($6ßPPP) 
GADRLO,Y ;Lo-Byte holen 
SCRLO ‚und 

BUFFLO ‚abspeichern 
XBYTE 

+$28 

SLOESCH4 


(BUFFLO),Y ;Hintergrundpuffer 


(SCRLO) ,Y 


XCOUNT 


SLOESCH3 


YWERT 
YCOUNT 


SLOESCHl 


SPRTD,Y 


STAB,Y 


STLO 


STAB,Y 
STHI 


POS 


XBITD,Y 


(STLO),Y 


(STLO),Y 


STHI 
STLO 


MOD+2 
MOD+1 


+$09 


(STLO),Y 


XLAE 


(STLO),Y 


YCOUNT 


POS 
XBYTD,Y 
XBYTE 
YWRTD, Y 
YWERT 
YMATD,Y 
YMAX 


MSKTD,Y 
FMASK 
+$92 


XLAE 
XCOUNT 
YWERT 
YMAX 
SZEICH2 
+$29 
SZEICH4 


GADRHI,Y 


HPAG 
SCRHI 


GADRLO,Y 


SCRLO 


XBYTE 
+$28 
SZEICH4 


PSEUDO, X 
(SCRLO),Y 


#$7F 
FMASK 


(SCRLO),Y 


;Bildbyte 


;‚Spaltenzähler 
‚Zeile fertig? 


‚Zeilenzähler 
‚Sprite fertig? 


;SPR-Nummer laden 
;‚A = Spritenumnmer 


;‚Sprite-Adresse 
;Lo-Byte 
‚Hi-Byte 


;‚Tabellen-Position 
‚XBI,Y - Bitsprite 


;‚Bitsprite-Adresse 
;Lo-Byte 


;‚Hi-Byte 


;‚PSEUDO durch 
‚Sprite-Ad. ersetz. 


‚Länge des Sprites 


‚Breite des Sprites 


;XBY,Y - X-Byte 
;YWR,Y — Y-Wert 
;YMAX des Sprites 
;‚Bitmaske für Farbe 
‚abspeichern 
‚Index für Sprite 


‚auf l. Byte 
‚Schleife für Y 


‚untere Bildgrenze 


‚Bildschirmadr. 
‚wird ermittelt 


‚Bitsprite-Adresse 
‚Hintergrund lesen 


;‚Farbbit löschen 
;‚Farbmaske f. Bit 7 
;‚Bildbyte zurück 
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APPLE - DISKETTEN LAUFWERKE - APPLE B . ; IBM KOMPATIBEL ****** IBM **' KOMPATIBEL 
Original Disk II m. Controller + DOS3.3+ Hdbuch DM 995,— 100% Apple-kompatibel 6 Mon. Garantie Reparaturservice Alle Teile unterliegen einer sorgfältigen Endkontrolle und wir 
Original Disk Il (2. Laufwerk) DM 825,— bei Verwendung des übernehmen daher volle Garantie für die Funktionsfähigkeit, 
Duo-Disk Station Slimline, 2 x 143KB Chinon DM 995,— Apple-Betriebssystems. Bu m = sowohl für die gelieferten Leerplatinen, als auch für die fertig 
Siemens Disk-Laufw., 143KB, m. Kabel + Gehäuse DM 498— en \ IT, bestückten Boards und Interface Karten, die fast ohne Ausnahme 
Abor-Disk-Laufw., Slimline, 143KB,m.Kab.+ Geh. DM 398,— f Ulf mit gesockelten IC's geliefert werden. 
Chinon Slimline, 143KB, Superleise, m. Kab.+Geh. DM 495,— N RUN! 77 IBM -- Kompatible Interface Karten und Mainboards -- IBM 
Teac 55F, 1 MB unf. Kapazität, Shugartbus DM 488— t N AN \ Disk Controller Karte für 2 Disk-Drives **KL-2020 DM 129— 
Teac 55F, kpl. in Gehäuse, 40/80 Track, 1MByte & N Color Video Board, *KL-2050 DM ab 198,— 
anschlußfertig, mit Umschaltung 40/80 + Kabel DM 548, — N N Monochrome Video boards "KL-2060 DM ab 270,— 
Zweitlaufwerk für Apple II C, 143 KB, mit Kabel DM 448, — \ RS 232 Drucker Interface Karte KL-2074 DM 148,— 
APPLE -- INTERFACES + MAINBOARDS -- APPLE N Centronics Paralell Interface Karte KL-2072 DM 35-— 
Disk Controller f. 2 Original 0. kompat. Drives "DM 79,— Multifunktion Karte, RAM-Bereich, RS232, 
Super-Controller f. 2x Teac 55F, mit Software "DM 188,— Paralell, Clock, mit OK bestückt "KL-2040 DM 298,— 
80 Zeich-Karte mit 64K RAM + Softsw. f. Ile DM 9,— FRE Se on LO IIND dto. wie vor, jedoch mit 128K bestückt "KL-2041 DM 348,— 
80 Zeich-Karte Il, m. Softswitch, 2 Zeichensätze DM 159, — APPLE -TASTATUREN+LEERGEHÄUSE+NETZTEILE- APPLE APPLE -- ORIGINAL + KOMPATIBLE - COMPUTER -- APPLE dto. wie vor, jedoch mit 256K bestückt "KL-2042 DM 398,— 
16K RAM Erweiterung für Il und kompatible DM 98,— standard Einbau-Tastatur, ASCII, freibel. 9 Tasten, APPLE Ile, 64KRAM, Ascii-Tastat. + UHF-Modul. DM 1998, — 512K RAM Karte, mit O K bestückt KL-2095 DM 248,— 
2 80A Interface Karte für CPM 2.2 DM 79—  Doppelbelg. aller Tasten, Groß+Kleinschr. Nr.N26 DM 139,— APPLE Ile, Einstiegspaket = Computer 64KRAM, dto. wie vor, mit 128K bestückt KL-2096 DM 298,— 
2 80B Interface Karte für CPM 3.0, m. 64K RAM DM 595.— Tastatur wie vor, jedoch mit 15er Block Nr.N67 DM 178,— + Philips-Monitor 18 Mhz grün + Siemens F122 - Multi I/O Interface Board, RS232, Disk-Controller, 
Printer-Grafik Interface, Epson kompatible "DM 79,— Tastatur Nr. N67, mit sep. Gehäuse, kpl. m. Kabel DM 249,— Laufwerk 143K m. Controller + Lerndiskette DM 2998, — Centronics, Clock, Joystick 
Centronic-Paralell Text-Interface Karte ‘DM 79—  Seperate Tastatur IBM-Look, anschlußfertig mit APPLE IIC, 128 KRAM, ASCII Tastatur DM 2795 — und Lightpen-Port "KL-2071 DM 498, 
Printer-Grafik Interface, NEC/ITOH kompatibel DM 169—  Kabel,Dopp.belegt.Tasten,freiprog. Funkt. Tasten DM 298,— APPLE II C, wie vor, jedoch deutsche Tastatur DM 2998,— Eprom Writer Karte (bis 128K benutzbar) 598,— 
Anschluß Kabel f. Paralell + Grafik Interface DM 34,—  Seperate Tastatur, Eprom progr.-bar, Cursorblock MACINTOSH System komplett m. Mouse + Tastatur Hardisk/Winchester Host-Adapter Karte *KL-2022 DM ab 598,— 
Buffer Grafik-Interface, benutzbar für Drucker Tastenfeld mit 24 Funktionen, Deutsch o. ASCII DM 398,— + Macwrite/Macpaint, Systemguide-Diskette DM 5995,— Mainboard XT Version, 8 Slots O0 bestückt 
Epson/Nec/Itoh/Okidata u. andere m. 32K Buffer DM 348,— Leergehäuse Standard, passendf. TastaturNr.N26 DM 98,— MEWA-48K, Apple kompat., Netzt. 5Amp, Tastatur mit 1 Boot-Eprom, 6 Eprom-Plätze frei "KL-1004 DM 449,— 
Buffer Interface wie vor aber mit 64K Buffer DM 59, — dto. wie vor, jedoch passend für 15er Tast. N67 DM 119,— mit Dopp-Belegung + 10 frei Prog.Tasten, mit dto. wie vor, jedoch mit 128K bestückt "KL-1005 DM 49, 
Anschluß Kabel f. Buffer Interface Karte DM 39 Leergehäuse wie Mewa 9000, für Einbau von zwei UHF-Mod,, ohne Firmware Eproms. DM 698,— dto. wie vor, jedoch mit 256K bestückt *KL-10066 DM 549,— 
232C Serielle Interface Karte DM 109  Sjmline-Laufwerken + Tastaturanschluß, Plastic DM 159,— MEWA-64K. wie vor jedoch mit 15er Block DM 728,— Bei den mit * gekennzeichneten Artikeln gehört zum Lieferumfang 
Super Serielle Interface Karte, Fullduplex DM ee Leergehäuse wie vor, jedoch in Metall-Ausführrung DM 198— ___MEWA 9000er Serie, mit seper.Tastat. DIN o. ASCII ein Manual. und z. T. ein Schaltbild. 
ee er ee > 149 — Schaltnetzteile für APPLE u. kompatible Rechner eg nenn Preislisten + Prospekte kostenlos gegen frankierten Rückumschlag 
Clock Karte (Datum/Uhrzeit) Ein/Ausgabe DM 129— +5V/5A-5V/0,5A +12V/2,5A -12V/0,5a  N74 DMHHBBO: ° 2 nures air oA mor-o. Firman-Prois men _ DISKETTENBOXEN -  ** 
Eprom Writer Karte (2716 - 2764) DM 129, — +5V/7,5A -5V/0,5A + 12V/2A -12V/0,5A N75 DM 149,50 (12KROM), 48K RAM DM 998— Profi Disk.Box. m. Schloß. Klars „Deckel. 100 Disks DM 39,— 
IEEE-488 Interface Karte DM 398,— MEWA 9000-64-C, wie vor jedoch 64K RAM DM 1098. — Disk Box mit Klars.-Deckel, ca. 70 Disketten 5 DM 26,— 
Lok "Tarle ING DENNBRER UNG TISndbuch Bm “ Komplett mit Gehäuse und Ile Tastatur, » MEWA 9000-64-C Einstiegspaket, wie vor, jedoch Hartbox für 10 Disketten, mit Klappdeckel DM 6,90 
Musik Karte m. Diskette und Handbuch DM 119,— Apple Ile = getrennte Cursor-Steuerung, mit Apfel- «© mit 1 Disk Drive eingeb. + Disk-Contr. + Monitor, IBM -- Kompatible Leerplatinen + Boards -- IBM 
PAL Color Interface Karte (UHF + Video) DM 109,— Compatible -Tasten (geschlossen - offen) R © grün DM 1898, — Disk Controller f. 2 Drives DM 39,— 
AGB Interface Karte (f. Apple Il + II+) ‚DM 109, mit 80-Zeichen-Karte! $ © IBM-Look Gehäuse für MEWA 9000 Serie Aufpreis DM 39— Color Grafik Video Board DM 68— 
Wild Karte (kopiert über RAM-Bereich) "DM 119,— \ ISEPS fe en -- MATRIX- UND TYPENRAD - DRUCKER -- ******"* RS232 Interface Karte DM 39,— 
en nen. IZE KK: DM.8098 ge CP-80 Matrix Drucker, Epson kompat.,vollgrafik. DM 739,— Centronics Paralell Interface Karte DM 39,— 
256K RAM Erweiterungs Karte m. Patchsoftware "DM 498,— 6 u Io CP-80 X mit eingeb. Interface für VC64f.Sim.B. DM 899,— Multifunktion Interface Board DM 78,— 
6809 Prozessor Exeil-9 Interfacekarte Dom a Is SPEEDY 100-80, Epsonkompat., 100Z/s,v.-grafik. DM 759,— Eprom Writer Interface Karte DM 78,.— 
13° TWENBE DONE NER FIBEER UT VEREIN. 90. IS) DM 9 Zusatzkarten für Apple Ile 2.2 GEMINI 10X, Neu mit Textsp., 100 Z/S., 9x9 Mat. DM 998— Multi l/O Board DM 72.— 
Hauptplatine 48K, o. Firmware Eproms, 8 Slots DM 388, — 80-Zeichen-Karte DM 88— & RK GEMINI 15X. wie 10X. jedoch bis 375 mm Papierbr. DM 1198 — Mainboard XT Version, 8 Slots DM 38— 
en N EERPLATINEN en A 80-Zeichen-Karte + 64-K-RAM Preise a. Anfrage ES ITOH 8510 B, Die Zuverlässigkeit in Person DM 1475,— RAM Card für see ; ie DM 68,— 
= = ' . . i 1495, — Il rplatinen werden mit Bestückungsplan geliefert 
Leerplatinen der obigen en gr sind alle in vergoldet, Motherboard Ile, bestückt + geprüft DM 598— © JUKI 6100, Typenraddr., 22 Z/s, TA-Typenräder DM ee ee ee ee Alathie 
N ück-Aufdruck + Best.-Plan lieferbar. GESCHEITERT TE TEICHE BEER % z x z ” 
Yiesstoiiei Beghe chen "DM 39,— Computer-Artikel Nachnahmeversand unfrei, Zwischenverkauf vorbehalten j . en ee DM oe 
Leerplatinen mit der Kennzeichnung "DM 2450 Angebote freibleibend unter Anerkennung unserer Lieferbedingungen. Technische Änderungen vorbehalten. "Apple ist eingetragenes ge Kabel im Schluss ASCII DM 398 — 
Leerplatinen mit der Kennzeichnung +DM 33,— Warenzeichen der Fa. Apple-Computer Inc., Kalifornien. Ware mit Rückgaberecht, besonders gekennzeichnet, muß frei zurückgeschickt re jadoch deutsche DIN Belegung DM 418 _ 
Experimentier Platine, für Apple Siot EX300 DM 29,90 werden. *IBM* ist eingetragenes Warenzeichen der Firma IBM GmbH Ffm tarıdard Tastatur IBM-Look. ASCII DM 235 — 
Leerplatine Motherboard, 48K, mit Best.-Aufdruck DM 66,— Netzteil. mit Ventilator 150 Watt DM 298,— 
Leerplatine Motherboard, 64K, mit 6502 + Z80 om 39— GOMPUTER CENTER CONEX ERICH-WILLI MEYER dto wie vor jedoch 135 Watt DM 235,— 
5650 SOLINGEN 11 - Postfach 110206 6343 FROHNHAUSEN - Postfach 7 11 Disketten Laufwerk 2x40 Track DS/360 KB DM 333,— 
Telefon (0212) 75449 Telefon (027 71) 350 71 Harddısk 10MByte kpl. m. Controller DM 2096,— 


Apple Il 


+ Kompatible 


Komp 48 
48 K. 6502 ohne Firmware 


Komp 64 


64 K, 6502, Z-80, 15er-Block 
ohne Firmware 


| Komp 64 S 340,- 
wie Komp 64, jedoch mit abgesetzter 
Tastatur mit 188 Funktionen. 
Motherboard 48 K 
8 Slots, alle IC’s gesockelt, 
ohne Firmware, fertig geprüft 


Motherboard 64 K 
wie oben, mit 6502 und 
2 80, 64 K 


630,- 


rür Apple Il, Ile 


80-Zeichen-Karte 
mit Sorftswitch, neue 
Vers. m. gest. scharf. Bild 


Speech-Karte 
Clock-Karte 
Super-Serial-Karte 


Komp 2 
Apple 2E kompatible, Rechner 
64 K im 2E-Design, ohne Firmware 


80Z + 6AK-Karte 99,- 
für 2E kompatible 


Apple-Info 1,- DM (Porto) 


69,- 139,- 


Z-80-Karte 

Disk-Interface 69,- 
Centronics-Interf. m. Kabel 69,- 
16-K-RAM-Karte 69,- 
RS-232-Karte 109,- 
Eprommer (4, 8, 16 K) 139,- 
128-K-RAM-Karte 279,- 
256-KB-RAM-Karte UUB,- 


Wild-Karte 69,- 
(knackt geschützte Programme) 
Händleranfragen erwünscht! 


840,- 


399,- 


»». Klaus Jeschke 


Hard-, Software 
Viertstr. 3-13 
6233 Kelkheim 
2 (06198) 7523 


Alle Preise inklusive Mehrwertsteuer. 6 Monate 
Garantie Versand erfolgt per NN oder Vorkasse 





HOBBY ELEKTRONIK ’85 
7. 11. - 10. 11. 
Halle 14, Stand 1437 


Apple und IBM 
kompatible Gomputer 


16K, Z80, Diskcontroler je. . 75,- 
80 Zeichenkarte mit Softswitch 

2 Zeichensätze . . . . . 
Motherboard 48K ohne Firmware 
Erphi-controler mit Autopatch 
Siemenslaufwerk F 122 . . 
TEAC FD-55B 2 x 40 Track . 
TEAC FD-55F 2 x 80 Track . 
FD4 Spezialcontroler für Laufwerke 
mit bis zu 2 x 80 Track 
Drucker Star SG 10 
Monochrome Monitore 
Farbmonitore . . . ... ab 998,- 
Tastaturen für IBM und Apple ab 330,— 
Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 
Preissenkung: 
128K Karte (Saturn kompatibel) . 
Preissenkung 4164-200 ns 
Mindestabnahme 20 Stck. . 3,90 


Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 


Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 
Telefon 02 14/9 37 81 


(BIS KT-1g-W-VoJe] [-Wg „11 
or, ESSUNESSELKERZLLETEN: 


Computer 48 KB o. Firmware 
Monitor 9”, grüne Röhre 
Disk-Controler für Apple 

16 K-Karte 

Z-80-Karte 


. 149,— 
,‚ 419,- 
. 300,— 
- 919,- 
. 448,— 
. 475,— 


Unser November-Angebot: 


Profimax Ile, APPLE Ile kompatibel, 
IBM-Look nur 1398. 


Original IBS-Drucker-Karte komplett 

m. Anschlußkabel (Druckertype angeben) 
Disk-Laufwerk Slim-Line 

Joy-Stick od. Paddles (2er-Set) je 

Drucker Centronics GLP 4 

Drucker SP 80 (80 Zchn./sec.) ... 

Drucker Comdata M 100 

Drucker Riteman 

Drucker Panasonic KX-P 1091... 

Drucker Riteman F+ 

Drucker Epson LX-80 

Drucker Epson FX-85 

Typenraddrucker 

10 Disketten Qualimex Durolife .. 

Bestellungen bitte nur schriftlich an: 

Abacomp GmbH, Kransberger Weg 24, 6 Frankfurt 50 
Mindestbestellwert: 50,- DM 

Tel. Auskunft: Mo-Sa 8-9.30 Uhr unter (069) 70 03 08 
Ladenöffnung: Mo-Fr 10-12 und 14-18 Uhr in Ffm. 90, 
Ginnheimer Landstraße 1 


Profimax Ill, APPLE Il kompatibel, 
IBM-Look 


Chinon-Laufwerk 051A 


. 130,— 
. 940,— 
ab 375,- 


nur 1248.- 
nur 398.- 
nur 298.- 
nur 998.- 
nur 118.- 


Video-Digitalisierer incl. Software 
STAR sg-10, original 


Centronics-Interface, grafikfähig 


375,— 


D.O.S Computersysteme 


der Partner für Schule, Hochschule, Forschung, Fertigung 


Am Kühnbach 42, 7170 Schwäb. Hall 11 
Tel. 0791/51736 
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8599: 
859A: 
859C: 
859E: 
85Aß: 
85A2: 
85AA: 


8545: 
85A7: 
85AA: 
85AD: 
85BP: 
85B2: 
85B5: 
85B7: 
85BA: 


85BB: 
85BD: 
85BF: 
85Cl: 
8503: 
8505: 
8507: 
8508: 
8509: 
85CB: 
8öct: 
85CE: 
85DP: 
85D2: 
85D4: 
85D6: 
85D8: 
85DA: 


85DB: 
85DE: 
8563: 
85E6: 
85EB: 
85EE: 
85F3: 
85F6: 
85FB: 
85FE: 
8603: 
8606: 
86QB: 
86PE: 
8613: 
8616: 
861B: 
861E: 
8623: 
8626: 
862B: 
862E: 
8633: 
8636: 
863B: 
863E: 
8643: 
8646: 
864B: 
864E: 
8653: 
8656: 
865B: 
865E: 
8663: 
8666: 
866B: 
866E: 
8673: 
8676: 
86TB: 
867E: 
8683: 
8686: 


14 


c8 249 
Cc6 98 250 
D® EB 251 
E6 1C 252 
c6 99 253 
D® Cc9 254 
60 255 
256 
257 
A9 EA 258 
8D 90 85 259 
8D 91 85 269 
20 24 85 261 
A9 11 262 
8D 90 85 263 
A9 96 264 
8D 91 85 265 
69 266 
267 
268 
269 
270 
271 
272 
A9 80 273 
85 El 274 
A9 99 275 
85 EP 276 
Ad 99 27T 
A9 BB 278 
AA 279 
8A 280 
91 E® 281 
c8 282 
D® 92 283 
E6 El 284 
cd D® 285 
D® FA 286 
A5 El 287 
c9 82 288 
D® EE 289 
69 290 
291 
292 
293 
294 
295 
296 
dB DD DO 297 
DD DD DO HD DB 
80 80 80 298 
80 80 80 80 89 
Do DO DB 299 
DD DD DD DD B0 
80 30 80 300 
80 80 80 80 80 
DD BO 00 301 
DD DD DD DD BO 
80 80 80 302 
80 80 80 80 80 
DD DO DO 393 
DD DD BO DD DD 
80 80 80 394 
80 80 80 80 89 
28 28 28 395 
28 28 28 28 28 
A8 AB AB 396 
ABS AB AB AB AB 
28 28 28 397 
28 28 28 28 28 
A8 AB A8 308 
A8 A8 AB A8 AB 
28 28 28 309 
28 28 28 28 28 
AB A8 AB 319 


AB A8 AB AB A8 
28 28 28 311 
28 28 28 28 28 
312 
AB AB A8 A8 A8 
50 50 58 313 
59 50 50 59 59 
314 
D® DB DG DO DB 
50 50 50 315 
50 50 59 50 59 
D® DO DB 316 
D® D® DB DB DB 
50 50 50 317 
50 50 50 59 59 
D® DB DB 318 
D® DB DB DP DP 


INY 
DEC 
BNE 
INC 
DEC 
BNE 
RTS 


XCOUNT 
SZEICH3 
YWERT 
YCOUNT 
SZEICHl 


‚Spaltenzähler 
‚Zeile fertig? 


‚Zeilenzähler 
‚Sprite fertig? 


%* u L—6—__eeeeeee6—_—__6____—_— — — — — —  — 


* 

UEBERZ LDA 
STA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
RTS 


#$EA 
PATCH 
PATCH+1 
SZEICH 
#$11 
PATCH 
#SCRLO 
PATCH+1 


:$EA = NOP 
;ORA (SCRLO),Y 
‚löschen 


;ORA (),Y OPCODE 


KRRKKEEEER 


* 


* Löschen der POS-Tabelle 


* 


* 
* 
* 


KERN K 


* 

POSINIT LDA 
STA 
LDA 
STA 
LDY 
LDA 
TAX 
TXA 
STA 
INY 
BNE 
INC 
CPY 
BNE 
LDA 
CMP 
BNE 
RTS 


POSL1 


POSL2 


* 


#>PTAB 
BUFFHI 
+$09 
BUFFLO 
#<PTAB 
+$09 


(BUFFLO),Y 


POSL2 
BUFFHI 
#<POSEND 
POSL1 
BUFFHI 
#>POSEND 
POSL1 


ak 
* HGR-ADR-Tabelle 
* YWERT -> Bildschirmadresse x 
3 ak ak ak ak ak ak ak ak ak ak ak aaa aaa 


* 
GADRLO 


HEX 
HEX 
_HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 


* 


DDNDNDNNDNDDDDDD 
spsHsH8H8H8N8dßt 
BRDDNNDNDDDDDDDD 
alu Jalu Felle Pal JetuFel0]=7") 
DHDDDDDDDDnnDD0D 
EHEHEHEH8080808d 
BHDDDDDDDNHNNDDDn 
spsnsnsnsnspsnsn 
2828282828282828 
ABABABABABABABAB 
2828282828282828 
ABABABABABABABAE 
2828282828282828 
ABABABABABABABAB 
2828282828282828 
ABABABABABABABAB 
5050505050505059 
DPDADADPDPDNDADY 
5059505059595059 
DODPDODPDNDPDADY 
50505905050505959 
DPDPDPDPDNDNDADY 


868B: 
868E: 
8693: 
8696: 


869B: 
869E: 
86A3: 
86A6: 
86AB: 
86AE: 
86B3: 
86B6: 
86BB: 
86BE: 
86C3: 
86C6: 
86CB: 
8S6CE: 
86D3: 
86D6: 
86DB: 
86DE: 
86E3: 
86E6: 
86EB: 
86EE: 
86F3: 
86F6: 
86FB: 
86FE: 
8703: 
8706: 
870B: 
870E: 
8713: 
8716: 
871B: 
87lE: 
8723: 
8726: 
87T2B: 
8TZE: 
8733: 
8736: 
873B: 
873E: 
8743: 
8746: 
874B: 
874E: 
8753: 
8756: 


875B: 
875E: 
8762: 
8765: 
8769: 
876C: 
8779: 
8773: 
8777: 
87TA: 
87TE: 
8781: 
8785: 
8788: 
878C: 
878F: 
8793: 
8796: 
879A: 
879D: 
87Al: 
87A4A: 
87A8: 
87AB: 
STAF: 
87B2: 
87B6: 
87B9: 
87BD: 
87C9: 


50 
59 
D® 
D® 


50 59 
50 59 
D® D® 
D® D® 


319 
59 59 
329 
D® DP 
321 
322 
323 
18 1C 
324 
18 1C 
325 
19 1D 
326 
19 1D 
327 
lA lE 
328 
1A 1E 
329 
1B IF 
330 
1B IF 
331 
18 IC 
332 
18 IC 
333 
19 1D 
334 
19 1D 
335 
lA 1E 
336 
lA 1lE 
337 
1B IF 
338 
1B IF 
339 
18.30 
349 
18 ie 
341 
19 1D 
342 
19 1D 
343 
1A 1E 
344 
1A 1E 
345 
1B IF 
346 
1B IF 
347 
348 
349 
359 
351 
352 
353 
354 
355 

DA 
356 
DA 
357 
DA 
358 
DA 
359 
DA 
369 
DA 
361 
DA 
362 
DA 
363 
DA 
364 
DA 
365 
DA 
366 
DA 
367 
DA 
368 
DA 
369 
DA 


%* 


#*—-—-—-—--- ——- - - 


GADRHI 


* 


KRERRRRHRREHT TR RR 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


5P5N5W5W5N5N5N5n 
DPDADPDYDPDADADY 


DOBANSHCIMIA1BIC 
DOWANEPCIMI1A181C 
B1P5W9WDI1115191D 
B1W5W9PDI1115191D 
D2O6WAPEI2I61ALE 
D2DEWAPEL2161ALE 
B3070BÖF13171B1F 
B3070BÖF13171BL1F 
DOWANSPCINL1A1SIC 
BODAMSHCIMI1A181C 
B1W5P9PDI1115191D 
P1P509PD1115191D 
D2PERABEI2IGLALE 
D2PERABEIZIGLALE 
D3070BOFI13171B1F 
B3070BWF13171BL1F 
DODABSHCIMIALBIC 
BOWANSHCIMIA181C 
D1P5W9PD1115191D 
D1P5W9PDI1115191D 
B2PERADEIZIEGLALE 
D2D6PAPEL2IGLALE 
D3070BÖF13171B1F 


03070BÖF13171B1F 


* Byte- und Bit-Umrechnugs- 
tabelle 
* XWERT -> XBYTE / XBIT 


* 


KERKHHRKKTTH EEK KR 


” 
. 
BITAB 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


HEX 


DDDADSDCHZDEHA 
DONABEHCHZOEHA 
DODAWSHCHZHENA 
DDDADEBCH2DEDA 
DDODADEOCH2NENA 
DODADSDCH2NEHA 
DODADSDCH2DEDA 
BONABSHCH2PEDA 
DODADSOCO2DEHA 
DODADEHCHZNEHA 
DODADEHCHZIEHA 
BOBADENCHZNEHA 
DODABSHCHZHEHA 
DOPADSHCHZDEHA 
DODADSBCH2HEHA 
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Accelerator Ile macht 
Ihren Apple” Il, II Plus oder lie 
dreieinhalbmal schneller. 


Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


Panday®ftı:... :- 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185859 


oO) rä ngec Druckerinterfaces für Apple II+/e/ 
P 


rinter Interface c/Ill Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt. 
Grafikfähiges Druckerinterface 


Grap pler + das keine Wünsche mehr offen läßt. 


Uber 2 Dutzend Kommandos ermöglichen die volle Kontrolle 
über alle Möglichkeiten Ihres 
Druckers. Jetzt auch mit 

lle Features: Double Hires \ 
Grafics und 80 Zeichen Dump 
mittels Druckerpuffer nachrüstbar W 
über Bufferboard. N 


Grai TEE . 


ten 16 K Druckpuffer, der auf 
32 oder 64 K aufrüstbar ist. 





Besitzt alle Vorzüge des Grappler +, 
hat aber zusätzlich einen integrier- 


PANETPN N N N STINE 
NN x NN RR N RN 





Serielles Druckerinterface 
speziell für den Apple Image- 
writer. 


G SERIAL \ 5 
Printer Interface 


MlorumK 
R APPLER C | ee C rafik 


Software-Diskette. 


Uhlandstraße 195 : 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 : Telex: 185859 


Seriell-nach-Parallel-Wandler für 
den IIc im Kabel integriert. 
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ThunderScan." 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 

einem Lesekopf, der das Farbband ersetzt, 
abgetastet. 


Edit Scanner Tools 

















« File 





ThunderScan'“ 


Light_Intensity_Gauge 













Contrast = 110% 


SE 























Brightness = +10 
[ Pause Quit Scan] 
m 


Linesto go. 186 









® 32 Graustufen 

@ 80 Punkte/cm Auflösung 

® Übertragungsmaßstab 25% - 400% 

® Vorlagen bis 20x25 cm 

® Nachträgliche Veränderung des Kontrasts 
und der Helligkeit. 


Panday®ftı... :- 


Uhlandstraße 195 - 1000 Berlin 12 :- Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


wir haben die und die 
Software... Hardware... 







Tin 
























wir haben die und die 
Bücher... Zeitschriften: 
Mar 









"Fordern Sie unseren Gratiskatalog an! 
ALLES FÜR DEN APPLE Il+, Ile, IIc UND MACINTOSH 


Panday®ft:... :-- 


UHLANDSTR. 195 - D-1000 BERLIN 12 
TEL.O30) 310 423 -TELEX:185859 


Autorisierter drop Fochhändler 
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87C4: 
87C7: 
87CB: 
8TCE: 
87D2: 
87D5: 
87D9: 
87DC: 
STEB: 
87E3: 


87ET: 
87TEA: 
STEE: 
87Fl: 
87F5: 
87F8: 
STFC: 
STFF: 
8803: 
8806: 
88DA: 
880D: 
8811: 
8814: 
8818: 
881B: 
88lF: 
8822: 
8826: 
8829: 
882D: 
8839: 
8834: 
8837: 
883B: 
883E: 
8842: 
8845: 
8849: 
884AC: 
8859: 
8853: 
8857: 
885A: 
885E: 
8861: 
8865: 
8868: 
886C: 
886F: 
8873: 
8876: 


Object saved as 


16 


DO DA D8 


dc 


02 


d6 


po da 08 


92 
da 
02 
D4 
02 
4 
02 


p6 
8 
d6 
#8 
06 
8 
06 


379 
DA 

371 
DA 

372 


373 


387 


389 
399 


391 
1B 
392 
1D 
395 
IF 
394 


395 
23 
396 
25 
397 
27 
398 
29 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 


ASTA, 


all 
412 
413 
414 
415 
416 
417 

418 

419 

420 

a2l 

422 
423 
424 
425 
426 
427 
428 


- 429 


430 
431 
432 
433 


HEX PPOPADSOCH2OEHA 
HEX PPPBADSNCH2HEDA 
HEX PPWANWEDCH2N6HA 
HEX PPpANBpCch2P6DA 
HEX PPBANEHCH2N6HA 
* 
ee 


%* 


BYTAB HEX BOBHDDDDDLD1DL 
HEX 02020202030303 
HEX 94049494050505 
HEX B6B60606070707 
HEX P8P80808090909 
HEX PABAQABADBOBOB 
HEX GCOCHCHCHDADAD 
HEX PEBEDEBENFOFGF 
HEX 1@1@1@1Q11llll 
HEX 12121212131313 
HEX 14141414151515 
HEX 16161616171717 
HEX 18181818191919 
HEX 1AIlAlAlAlBI1BI1B 
HEX IC1IC1C1C1DIDID 
HEX LlEIlElEILEIFIFIF 
HEX 29202020212121 
HEX 22222222232323 
HEX 24242424252525 
HEX 26262626272727 


HEX 28282828292929 


* 


* 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Der nachfolgende Teil wird 
nur zur Label-Berechnung 
gebraucht. 

Daher sollte der erzeugte 
Objektcode an dieser Stelle 
abgespeichert werden. 

Beim MERLIN erfogt dies durch: 


“*RKKKKAKKKAK KH 


SAV ASTA 
A$8ADP ,, L$OATA 


* 
RR 
Aufbau der Sprite-Tabelle 


STAB DA $Pp00 ; Sprite ® 
nicht erlaubt 
DA SPRITEL 
DA SPRITE2 


SPRITEI: 
DA Sprite für Bit 1 
DA Sprite für Bit 2 


DA Sprite für Bit 7 
SBIT1 DFB Länge ‚Breite 
DFB Bytes 


Codierung eines Sprites 


KK KK FF KK FI FI FT FF I I a a 
KK KK FF FI KK I a a u 8 


..%.. = 001100 = $OB 
.*..%*. = 7010010 = $12 
ar = ZI11111 = $3F 


454 %* ” 
435. RB 
436 STAB = $8309 
437 x Ab STAB sollten nur die 
438 x Anfangsadressen der Sprites 
459 x abgespeichert werden. 
440 * Die einzelnen Sprites selbst 
441 x können an anderer Stelle 
442 x im Rechner gespeichert werden. 
443 %* 
444.23 BB BER 
445 x% Aufbau der Positionstabelle x 
446 x* * 
447 * TD - Zeichnen * 
448 %& TZ - Zwischenspeichern * 
449 %* TL - Löschen ” 
450 x * 
451 x SPR - Nr. des Sprites * 
452 * XWR - X-Koordinate * 
455 %#* XBY - X-Byte * 
454 x XBI — X-Bit » 
455 %* YWR - Y-Byte * 
456 x* YMA — YMAX beim Zeichnen * 
457 * DRW — ZEICHENMODUS * 
458 x MSK - Farbmaske Bit 8 * 
459 %* * 
AGD a akakak aka aka ak akakakakakakakakakakakakakakakakakkkkk 
461 x 
462 PTAB = $8000 
463 ORG PTAB 
464 SPRTD DS ANZAHL 
465 XWRTD DS ANZAHL 
466 KXBYTD DS ANZAHL 
467 XBITD DS ANZAHL 
468 YWRTD DS ANZAHL 
469 YMATD DS ANZAHL 
470 DRWTD DS ANZAHL 
471 MSKTD DS ANZAHL 
aT2 %--------—-------- 
473 SPRTZ DS ANZAHL 
474 XWRTZ DS ANZAHL 
475 XBYTZ DS ANZAHL 
476 XBITZ DS ANZAHL 
477 YWRTZ DS ANZAHL 
478 YMATZ DS ANZAHL 
479 DRWTZ DS ANZAHL 
480 MSKTZ DS ANZAHL 
a8l %----- 
482 SPRTL DS ANZAHL 
483 XWRTL DS ANZAHL 
484 XBYTL DS ANZAHL 
485 XBITL DS ANZAHL 
486 YWRTL DS ANZAHL 
487 YMATL DS ANZAHL 
488 DRWTL DS ANZAHL 
489 MSKTL DS ANZAHL 

82DP: PP 490 POSEND HEX 69 

1867 Bytes 

SPRITE.EDIT 

1000 REM Sprite-Editor 

101® REM für ASTA 

1028 REM von Bernd Klıswonn 

1039 REM 

1040 REM 

1050 REM SF% - ® => Unverändert 

1069 REM l => Sprite leer 

1907® REM 2 => Sprite neu 

1080 REM 

1098 PRINT CHR$ (21): HIMEM: 16383 

1100 I$ = "INS":T$ = ":":R$ = ";":AD$ = " .DA ":B$ = " BYT 

": REM LISA 
111® I$ = "#-——- SPRITEDEF —":T$ = "":R$ = "«":AD$ = " DA 
":B$ = '" DFB ": REM MERLIN 

1128 DEF FN A(0) = START +X + Y x 69 

1138 DEF FN F(0) = START + 52 + Y * 69 

1148 DEF FNK(K) =K x 4 +11 

1158 ROT= ®: SCALE= 1 

1169 GOTO 3679 

1178 REM —= Sprites zeigen — 

11808 W = PEEK ( FN A(®)) = 3:F = PEEK ( FN F(ß)) 

1198 HCOLOR= W + F x 4 

1208® HPLOT 188 + X,11 + Y: HPLOT 235 + X,11 + Y 

1218 HCOLOR= W + (1 -F) * 4 

1228 HPLOT 188 + X,60 + Y: HPLOT 235 + X,60 + Y 
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1239 
1249 
1259 
1269 
1279 
1280 
1299 
1309 
1319 
1329 
1339 
1349 
1359 
1369 
1379 
1389 
1399 
1490 
1419 
1429 
1439 


1449 
1459 
1469 
1479 
1489 
1499 
1509 
151® 
1529 
1539 
1549 
1559 
1569 
1579 
1589 
1599 
1699 


1619 
1629 
1639 


1640 
1650 
1669 


167 
1689 
1690 


1799 
1719 
1729 


1739 
1749 
1759 
1769 
1779 
1789 
1799 
1809 


181® 
1829 
1839 


1849 
185® 
1860 
187 
1880 
1899 
1999 
1919 
1929 
1939 
1949 
1959 
1969 
1979 


1980 
1999 


2009 
2010 
2029 
2039 
2049 


HCOLOR= W: DRAW 4 AT FN K(X), FN K(Y) 
RETURN 

REM — Hintergrund = 

HGR2 

HCOLOR= 1 

FOR S = ß TO 42 


I=Sx«4+]1l 

HPLOT I,11 TO I,179 

HPLOT 11,1 TO 179,1 

NEXT 

HCOLOR= 3 

RETURN 

REM — Speicher löschen =- 


REM 60 x» 40 Felder 

REM Xß-X49 -— Punkte 

REM X5® — Startpunkt 
REM X51 — Endpunkt 
REM X52 — Farbbit 
CALL LOESCHEN: RETURN 


REM — Shapes =- 

POKE 233,SHAPE / 256: POKE 232,SHAPE —- PEEK (233) * 
256 

PRINT 

PRINT CHR$ (4) ;"BLOAD SPRITE.EDIT.ASS, A"; ROUTINE 
RETURN 

REM — Cursor =- 

XDRAW 3 AT FN K(X), FN K(Y):N = 29 

IF N THENN = N - 1: IF PEEK (KBD) < 128 THEN 1499 
XDRAW 3 AT FN K(X), FN K(Y):N = 29 

IF PEEK (KBD) > 127 THEN GET A$:A = ASC (A$): RETURN 
N=N- 1: IF N THEN 151® 


GOTO 1480 

REM — EOR bei X,Y = 

POKE FN A(®),1 - PEEK ( FN A(B)) 
GOSUB 1179 

RETURN 

REM — Verschieben 'M' =- 


FOR X = ® TOA: FrRY=B TO 1STEP- 1 

POKE FN A(®), PEEK ( FN A(®) - 60): NEXT : POKE FN 
A(®),®: NEXT : RETURN 

REM — Verschieben 'I!' =. 

FOR X=9TOA: FRY=9TOB-N1 

POKE FN A(®), PEEK ( FN A(®) + 60): NEXT : POKE FN 
A(®),®: NEXT : RETURN 

REM — Verschieben 'K' =- 

FOR Y=® TO B: FRX=ATO1STEP- 1 

POKE FN A(®), PEEK ( FN A(®) - 1): NEXT : POKE FN 
A(®),d: NEXT : RETURN 

REM — Verschieben 'J' =. 

FOR Y=®TOoB: FRX= 0 TOA-LN1I 

POKE FN A(®), PEEK ( FN A(®) + 1): NEXT : POKE FN 


A(®),®: NEXT : RETURN 

REM —= Zeile plotten =- 

A=X: REM X speichern 

CALL ROUTINE:Wl = PEEK (SPUNKT + 60 * Y):W2 = PEEK 
(EPUNKT + 60 x Y) 

IF W1 = 99 THEN RETURN 

FOR X = W1 TOW +1 

GOSUB 117® 

NEXT 

X = A: RETURN 

REM —= Sprite komplett plotten = 

CALL ROUTINE 

FOR Y = ® TO 41:W1 = PEEK (SPUNKT + 60 * Y):W2 = PEEK 
(EPUNKT + 69 x Y) 

IF W1 = 99 THEN 1839 

FOR X = W1 TO W2 + 1: GOSUB 1179: NEXT 

IF PEEK ( FN F(®)) THEN HCOLOR= 3: DRAW 3 AT 5, FN 
K(Y) 

NEXT : RETURN 

REM —= Eingabe =- 

GET E$ 

IF E$ = CHR$ (13) THEN PRINT : RETURN 

IF E$ = CHR$ (8) THEN IF LEN (X$) > ® THEN 1920 

IF E$ < " " THEN 1869 


IF LEN (X$) > = MAX THEN PRINT CHR$ (7);: GOTO 1869 
PRINT E$;:X$ = X$ + E$: GOTO 1869 

IF LEN (X$) = 1 THEN X$ = "": GOTO 1949 

X$ = LEFT$ (X$, LEN (X$) - 1) 

PRINT E$;" ";E$;: GOTO 186® 

REM — Länge/ Breite =. 


Y = 42: CALL ROUTINE 
Y=Y- 1: IF Y>= ® THEN IF PEEK (SPUNKT + 60 x Y) = 
99 THEN 1979 

xX=6: FRB=9BTOY 

IF PEEK (SPUNKT + 60 * B) < > 99 THEN W = PEEK (EPUNKT 
+60 «x B): IFX<WTHENX=W 

NEXT : RETURN 

REM — BITSPRITE = 

PRINT L$; STR$ (B + 1);T$ 

PRINT B$; INT ((B+X) / 7 + 1);",";Y+1 

FOR W1 = ® TO Y 
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2059 
2069 
2079 
2080 


2099 


219% 
2119 
2120 


2139 
2149 
2159 
2169 
2179 
2189 
2199 
2209 
2219 
2229 
2239 
2249 
2259 
2269 


227D 
2280 
2299 


2309 
2310 


2320 
2330 
2340 
2359 
2360 


2379 
2380 
2399 
2499 
2419 
2420 
2439 
2449 
2459 
2469 
2470 
2480 
2490 
2509 
251® 
2529 
2539 
2549 
2559 
2569 
2579 
2589 
2599 


2609 


2619 
2629 
2639 
2649 
265% 
2669 


2670 
2689 


2699 


2700 
2710 
2729 
2739 
2749 
2759 
2769 
2779 
2780 
2798 


2809 
2819 
2829 


grafik 94 





PRINT B$; 

I= - 1:4$ = !"":BY= 9 

FOR W2=98-BTOX 

I= 1I+ 1: IF I= 17 THEN I = ß:BY = BY + PEEK (FARBBIT 
+ 60 « W1) * 128: PRINT A$; STR$ (BY);:A$ = ",":BY= 9 


W= ß: IF W2 > = ® THEN W = PEEK (START + 69 * WI + 
W2) 

BY=BY+21I»W 

NEXT 

BY = BY + PEEK (FARBBIT + 60 * W1) * 128: PRINT A$; 

STR$ (BY) 

NEXT 

PRINT R$: RETURN 

REM —= Help =- 

HOME 

INVERSE : HTAB 19: PRINT "EDITOR-KOMMANDOS:": NORMAL 


PRINT : PRINT "Editor verlassen = <ESC>" 
VTAB 5: HTAB 31: PRINT "I": VTAB 7: HTAB 31: PRINT "M" 


VTAB 6: PRINT "Zeichen-Cursor bewegen - J+ K" 

VTAB 9: PRINT "Punkte setzen/löschen — <CTRL> IJKM" 
PRINT : PRINT "Sprite löschen _ L" 

PRINT : PRINT "Farbbit setzen/löschen - P" 

PRINT : PRINT "Sprite verschieben - V + IJKM" 
TEXT 


VTAB 23: HTAB 7: INVERSE : PRINT '"< BITTE TASTE 
DRÜCKEN >";: GET A$: PRINT : NORMAL 

POKE - 16297,0: POKE - 16304,®: POKE - 16299,9: RETURN 
REM — Initalisierung = 

ROUTINE = 25ß@®®:LOESCHEN = ROUTINE + 68:SHAPE = 
ROUTINE + 11® 

HOME :START = 26@99:SPUNKT = 50 + START:EPUNKT = 51 + 
START:FARBBIT = 52 + START:KBD = -— 16384 

IF PEEK (768) < > 123 THEN POKE 769,9: GOSUB 1429: 
GOSUB 1350:SF% = 1: POKE 768,123: REM Speicher löschen 
RETURN 

REM — Editor =- 

IF SF% > ® THEN GOSUB 125% 

IF SF% = 2 THEN GOSUB 178@ 

POKE - 16302,0: POKE - 16297,®: POKE - 16304,9: POKE - 
16299, ® 

SF =-0:X=-0:Y=9 

GOSUB 1470: REM Cursor 

IF A = ASC ("I") — 64 THEN GOSUB 1549:4A$ nn 
IF A= ASC ("K") -— 64 THEN GOSUB 1549:A$ = "K" 
IF A = ASC ("J") — 64 THEN GOSUB 1549:A$ = "J" 
IF A = ASC ("M'") —- 64 THEN GOSUB 1549:A$ = "M" 
IF A$ = "I" THEN Y Y- 1: IFY< 6 THEN Y = 4l 
IF A$ = "M" THENY=Y+1: IFY>4AlTHENY=9 
IF A$ = "K" THEN X X+ 1: IF X > 41 THENX= © 
IF A$ = "J" THENX = X - 1: IFX< 0 THENX = 4l 
IF A$ = "F" THEN GOTO 2530 

IF A$ = "L" THEN 2579 

IF A$ = "V" THEN 2659 

IF A$ = CHR$ (27) THEN RETURN 

IF A$ = "?" THEN GOSUB 2159: GOTO 2389 
GOTO 2380 

F= PEEK ( FNF(ß)):;F = 1-F 

HCOLOR= 3 * F: DRAW 3 AT 5, FNK(Y) 

POKE FN F(®),F 

GOSUB 1780: GOTO 2389 

REM Sprite löschen 

HOME : POKE - 16399,®: POKE - 16393,® 
VTAB 19: PRINT "Sprite löschen (J/N)? ";: 
PRINT A$ 

IF A$ < > "J" THEN POKE - 16304,0: POKE - 16299, 0: 
GOTO 2389 

A=XB=Y 

GOSUB 1359: GOSUB 125 

X=A:Y=B 

GOTO 2389 

REM Sprite verschieben 

HOME : POKE - 16399,®: POKE - 16393,0: GOSUB 195ß:A = 
X+1:B=Y+Htl 

VTAB 19: PRINT "Verschieben - welche Richtung?" 

VTAB 12: HTAB 15: PRINT "I": HTAB 13: PRINT "J K - 
Richtung": HTAB 15: PRINT "M" 

PRINT : PRINT "andere Eingabe -> zurück": VTAB 19: 
HTAB 33: PRINT ;: GET A$: PRINT A$ 

IF A$ = "M" THEN GOSUB 1589: GOTO 275% 

IF A$ = "I" THEN GOSUB 161: GOTO 2759 

IF A$ = "K'" THEN GOSUB 1649: GOTO 275% 

IF A$ = "J" THEN GOSUB 1679: GOTO 275% 

POKE - 16304,®: POKE - 16299,®9: GOTO 2389 

POKE - 1634,90: POKE - 16299,® 

GOSUB 1259: GOSUB 1789 

X = A:Y = B: GOTO 2380 

REM -= BSPRITE-Berechnung =- 

HOME : INVERSE HTAB 9: PRINT "BSPRITE-BERECHNUNG": 
NORMAL 

PRINT : PRINT "1 -> Normal" 

PRINT : PRINT "2 -> Normal (alle Farben)" 

PRINT : PRINT "3 -> Einzel-Sprite" 


GET A$: 


Ir 





2830 


2849 
2859 
2869 
2879 


2880 
2899 


2900 
2919 
2920 
2930 
2940 
2950 
2960 
2970 
2989 
2999 
3000 
3019 
3029 
3030 
3040 
3059 
3069 
3079 
3d8P 
309p 
3109 
311® 
3129 
3139 
3149 
3159 
3169 
3179 
3189 
3199 


3209 
3219 


3220 
3230 


3240 
3259 
3269 
3279 
3280 
3290 


3309 
331® 


3329 
3330 
3349 
3359 
3369 
3379 
3389 
3399 
3409 
3410 
3420 
3430 
3449 
3459 


3460 
3470 
3480 


3499 
3509 
351® 
3529 
3539 
3549 
3559 


3560 
3579 
3589 
3599 
3609 
3619 
3629 
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PRINT : PRINT "Nr.:";: GET A$:A = VAL (A$): HTAB 1: 
PRINT " " 

IFA > 3 OR A< 1 THEN PRINT CHR$ (7): RETURN 
INVERSE : VTAB 2 *& A + 1: PRINT STR$ (A): NORMAL 
POKE 34,11: HOME 


X$ = "T.":MAX = 33: PRINT "Filename: T.";: GOSUB 
1850:F$ = X$: VTAB 9: PRINT "File: ";F$ 

IF F$ = "" THEN PRINT CHR$ (7): RETURN 

HOME :: PRINT "Labelname (max 5 Zeichen): ";:MAX = 5:X$ 
= "": GOSUB 1859 

IF X$ = "" THEN PRINT CHR$ (7): RETURN 


L$ = X$: VTAB 19: PRINT "Label: ";L$: HOME 

IF A = 3 THEN 312 

GOSUB 1959 

IF PEEK (KBD) = 171 THEN PRINT CHR$ (7):X=X+1 
VTAB 11: PRINT "Sprite: ";X;" % ";y 

PRINT CHR$ (4) ;"MONCIO" 

HOME : PRINT CHR$ (4);"OPEN ";F$ 

PRINT CHR$ (4); "WRITE ";F$ 

PRINT I$ 

PRINT L$;T$ 

FOR B = 1 TO 7: PRINT AD$;L$; STR$ (B): NEXT 

IF A = 1 THEN 3959 

PRINT L$;"S";T$ 

FOR B = 2 TO 8: PRINT AD$;L$; STR$ (B): NEXT 
PRINT R$ 

FRB=9T0OA+5 

GOSUB 2919 

NEXT 

PRINT CHR$ (4) ;"CLOSE ";F$ 

PRINT CHR$ (4) ;"NOMONCIO" 

RETURN 

REM Einzel-Sprite 

HOME 

PRINT "Begrenzung festlegen -" 

PRINT "Cursor bewegen mit I J KM" 

PRINT "Mit <ESC> beenden" 

PRINT : INVERSE : PRINT "<RETURN> DRÜCKEN": NORMAL 
GET A$: IF A$ < > CHR$ (13) THEN 3189 

PRINT : POKE - 1632,90: POKE - 16297,9: POKE - 
16304,0: POKE - 16299,® 

GOSUB 1959 

HCOLOR= 1: HPLOT ®, FN K(Y) +2 TO 4, FNK(Y) + 2: 
HPLOT FN K(X) + 2,08 TO FN K(X) + 2,4 

GOSUB 147 

HCOLOR= ®: HPLOT ®, FN K(Y) + 2 TO 4, FNK(Y) + 2: 
HPLOT FN K(X) + 2,8 TO FN K(X) + 2,4 

IF A$ = "I" THENY=Y- 1: IFY<OQTHEN Y=4l 
IF A$ = "M" THENY=Y+ 1: IFY>41l THENY=9G 
IF A$ = "K" THENX = X + 1: IFX>4l THENX= 9 
IF A$ = "J" THENX=X- 1: IFX<0G THEN X = 4l 
IF A$ < > CHR$ (27) THEN 3219 

TEXT : POKE 34,11: HOME : VTAB 11: PRINT "Sprite: 
".X:" 5 %:Y: HOWNE 

INPUT "Ab welchem Bit (1-7) ?";A$ 

B= VAL (A$): IF B< 1 OR B > 7 THEN PRINT CHR$ (7);: 
RETURN 

VTAB 11: HTAB 20: PRINT "Bit :";B: HOME 

PRINT CHR$ (4) ;"MONCIO" 

PRINT CHR$ (4);"OPEN ";F$ 

PRINT CHR$ (4); "WRITE ";F$ 

PRINT L$;T$ 

FOR W = ® TO 6: PRINT AD$;L$; STR$ (B): NEXT 
B=B-1l 

GOSUB 201® 

PRINT CHR$ (4) ;"CLOSE ";F$ 

PRINT CHR$ (4) ;"NOMONCIO" 

RETURN 

REM — Sprite laden/sichern = 

HOME 

INVERSE : HTAB 4: PRINT " SPRITE LADEN/SICHERN ": 
NORMAL 

VTAB 3: PRINT "L)aden oder S)ichern "; 

INVERSE 

GET A$: IF A$ = "L" THEN HTAB 1: PRINT "L)ADEN": GOTO 
3519 

IF A$ < > "S" THEN PRINT CHR$ (7): RETURN 

HTAB 13: PRINT "S)ICHERN" 

NORMAL : POKE 34,5 

HOME : PRINT "? - CATALOG": PRINT 

MAX = 33:X$ = "SPR.": PRINT "Filename: SPR."; 
GOSUB 1859 

IF X$ = "?" OR X$ = "SPR.?" THEN PRINT CHR$ 

(4) ;"CATALOG": GET X$: GOTO 3529 

IF A$ = "S" THEN 361 

REM Laden 

CALL LOESCHEN:SF%Z = 1 

PRINT CHR$ (4) ,"BLOAD";X$;", A"; START 

SFZ = 2: RETURN 

REM Sichern 

CALL ROUTINE:Y = 42 


3630 Y= Y- 1: IF Y> = ® THEN IF PEEK (SPUNKT + 60 « Y) = 
99 THEN 3639 

3640 Y= Y + 1: IF Y= ® THEN RETURN 

3650 PRINT CHR$ (4) ;"BSAVE";X$;",A";START;",L";Y * 69 

3660 RETURN 

3678 REM -—= Hauptprogramm = 

3680 SF% = PEEK (769) 

3690 ONERR GOTO 383® 

3700 GOSUB 2289 

3718 REM -= Menü =- 

3728 TEXT : HOME 

3730 HTAB 15: INVERSE : PRINT "SPRITE-EDITOR": NORMAL : 
VTAB 5 

37408 PRINT "1 -> Sprite editieren (?-Help)'": PRINT 

3758 PRINT "2 -> BSPRITE berechnen": PRINT 

3768 PRINT "3 -> Sprite laden/sichern': PRINT 

3778 PRINT "4 -> Programmende'": PRINT 

3780 VTAB 15: PRINT "Nr.:"; 

3790 GET A$:A = VAL (A$): PRINT A$ 

3800 IF A = 4 THEN POKE 769,SF%: HOME : END 

3810 ON A GOSUB 2339,2789, 3439 

3820 GOTO 3719 

3830 REM —= Error — 

3840 POKE 769,SF%: TEXT 

3850 PRINT PEEK (222); CHR$ (7);" ERROR IN "; PEEK (218) + 
PEEK (219) * 256 

3860 END 


SPRITE.EDIT.ASS 
BSAVE SPRITE.EDIT.ASS, A$2000, L$OBA6 


2000:A9 90 85 19 A9 65 85 1A 
2008:A9 2A 85 07 AB 32 AY 63 
2010:91 19 AB B0 Bl 19 DB 17 
2018:C8 CO 32 D® F7 18 A5 19 
2020:69 3C 85 19 A5 1A 69 99 
2028:85 lA C6 97 D® DE 69 98 
2030:AA AB 32 Bl 19 C9 63 DP 
2038:03 8A 91 19 8A C8 91 19 
2040:A8 18 90 DA A9Y 90 85 19 
2048:A9 65 85 lA A9 2A 85 97 
2050:A2 BO AB BO 8A 91 19 C8 
2058:C0 68 D® F9 18 A5 19 69 
2069:3C 85 19 A5 1A 69 BB 85 
2068:1A C6 07 D® E5 69 dA BB 
2070:0A OB 19 BB 22 BO 2A BB 
2078:2D 2D 36 36 3F 3F 24 2C 
2080:2D 36 3F 2C 05 43 BB BD 
2088:0D 36 36 IF IF 24 24 $® 
2090:89 36 05 43 IF 94 43 BB 
2098:11 2D 36 3F 2C 95 43 99 
20A0:00 DD DO DO MO DR 


Kurzanleitung 


Das Sprite in dem Programm ASTA.DEMO kann man 
folgendermaßen selbst erstellen: 


l) SPRITE.EDIT eingeben und mit 
SAVE SPRITE.EDIT 
abspeichern. 

2) SPRITE.EDIT.ASS abtippen und mit 
BSAVE SPRITE.EDIT.ASS, A$2000, L$PBA6 
abspeichern. 

3) Mit dem Sprite-Editor ein eigenes Sprite erstellen 
und mit der Option "Bitsprite berechnen" als normales 
Sprite unter dem File- und Labelnamen '"SPRTE" 
abspeichern. 

4) ASTA.DEMO als Assembler-Quelltext bis Zeile 93 
eingeben und danach mit dem R-Kommando (Merlin- 
Assembler) das eigene Sprite einladen. 

(Quelltext als T.ASTA.DEMO oder ASTA.DEMO.S- speichern.) 

5) Nach dem Assemblieren: Objektcode unter dem Namen 
ASTA.DEMO abspeichern. 

6) Aufruf durch 
BLOAD ASTA 
BRUN ASTA.DEMO 
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ASTA.DEMO BPL INTLOOP 
RTS 


PROGRAMM LDY #29 

PRGMLOOP SEC 
LDA $D135,Y ;"Zufallszahl" 
AND #%00000@11 ; MOD 4 
ADC KXWRTD,Y ;‚ addieren 
CMP #149 ;Rechter Rand? 
BCC PRGRMIl 
LDA #$09 ‚ja, von vorn 
STA XWRTD,Y ‚neue Koord. 
DEY 
BPL PRGMLOOP 
RTS 


Beispiel zur Anwendung von ASTA 


Abspeichern mit 

BSAVE ASTA.DEMO, A$B800, L$PACE 
Aufrufen mit 

BLOAD ASTA, dann BRUN ASTA.DEMO 
Abbrechen mit Reset 


VO AUDHr 
KK KK 
Ze Ze zer 


von H. Grunser 


GRAFIK BIT $C939 ;keine GRAFIK 
EQU $E6 : RTS 
HGR2 EQU $F3D8 
HGR EQU $F3E2 * Folgende Tabelle wurde 
BKGND1 EQU $F3F8 * SPRITE.EDIT erstellt: 
* 
* ASTA-Routinen und -Tabellen *-——- SPRITEDEF —- 
0875: SPRTE DA SPRTEL 
SPRTD EQU $809® 0877: DA SPRTE2 
XWRTD EQU SPRTD+3® 0879: DA SPRTE3 
YWRTD EQU XWRTD+9d BBTB: DA SPRTE4 
YMATD EQU YWRTD+3® B87D: DA SPRTE5 
STAB EQU $830P BBTF: DA SPRTE6 
POSINIT EQU $85BB B881: DA SPRTE7 
ASTA EQU $8499 0883: SPRTEl DFB 1,5 
0885: DFB 14 
JSR POSINIT ;‚Tab. löschen 886: DFB 31 
JSR INIT ‚Initialisierung 0887: DFB 31 
0888: DFB 31 
LDA $0954 ;‚HGR2 zeichnen 0889: DFB 14 
LDA #$49 ;HGR1l anzeigen DB8A: SPRTE2 DFB 1,5 
STA HPAG BC: DFB 28 
JSR PROGRAMM d88D: DFB 62 
JSR ASTA ;Sprites zeichnen D88E: DFB 62 
JSR GRAFIK ;Bild ändern BBEF: DFB 62 
B899: DFB 28 
LDA $c955 ;HGRl anzeigen 891: SPRTE3 DFB 1,5 
LDA +$29 ;HGR2 zeichnen 0893: DFB 56 
STA HPAG B894: DFB 124 
JSR PROGRAMM 0895: DFB 124 
JSR ASTA ;‚Sprites zeichnen 0896: DFB 124 
JSR GRAFIK ‚Bild ändern 0897: DFB 56 
0898: SPRTEA DFB 2,5 
GER ‚Endlos- BEA: DFB 112,9 
BCC LOOP ; schleife B89C: DFB 129,1 
Ö8YE: DFB 129,1 
* Unterprogramme DBAB: DFB 129,1 
DBA2: DFB 112,® 
INIT JSR HGR ;HGRl löschen DBAA: SPRTES DFB 2,5 
JSR HGR2 ;HGR2 löschen DBAG: DFB 96,1 
LDA #$69 ‚Hintergrund DAB: DFB 112,3 
JSR BKGND1 ;‚ löschen DBAA: DFB 112,3 
LDA #<SPRTE ;‚Sprite-Zeiger DBAC: DFB 112,3 
STA STAB+2 ; in Sprite- BBAE: DFB 96,1 
LDA #>SPRTE ; tabelle B8Bß: SPRTE6 DFB 2,5 
STA STAB+3 ; eintragen B8B2: DFB 64,3 
LDY #29 D8B4: DFB 96,7 
INTLOOP LDA #1 ‚Sprite-Nummer B8B6: DFB 96,7 
STA SPRTD,Y ‚ eintragen DEB8: DFB 96,7 
LDA #191 ;Unterkante D8BA: DFB 64,3 
STA YMATD,Y ; eintragen BBBC: DFB 
TYA BSBE: DFB 
ASL ;Y-Koord. = BEch: DFB 
ASL ‚4 * Y-Reg. B8C2: DFB 
STA YWRTD,Y B8C4A: DFB 
AND #%ß@@11111 ;X-Koord. = B8C6: DFB 
STA XWRTD,Y ; 4 * Y-Reg. 
DEY ; MOD 16 200 Bytes 





Hinweis: Die Peeker-Sammeldisk # 11 enthält zusätzlich ein komplettes Demo, das mit RUN ASTA.DEMO.1 gestartet werden 
kann und seinerseits die verschiedenen Binärfiles AD1 bis AD5 automatisch einlädt. 


Peeker 11/85 19 





Großformatiger 
HGR-Ausdruck 


Die hier vorgestellte Routine ermöglicht 
es, mit Hilfe eines Druckers Hardcopies 
vom HGR-Bildschirm in der Größe von 
Postern oder Plakaten anzufertigen. Im 
Extremfall können diese Ausdrucke eine 
Fläche von fast 30 qm einnehmen. 


Eine „Posterroutine“ ist sehr nützlich, 
wenn man Plakate erstellen will (z.B. von 
besonders guten Grafiken aus Spielen) 
oder wenn man mit einem Malprogramm 
ein Kunstwerk erstellt hat und sich dieses 
groß aufhängen möchte. Orientiert man 
sich am Imagewriter, so kann ein Aus- 
druck von 40facher Vergrößerung durch- 
aus die Maße 7,12 m x 4,32 m annehmen. 
Es sind allerdings auch Zimmergrößen er- 
reichbar, z.B. 1,43 m x 1,08 m bei Faktor 8 
oder 0,71 m x 0,54 m bei Faktor 4. Wem 
dies immer noch zu groß ist, der sollte es 
einmal mit Faktor 2 versuchen, es wird ein 
„Pösterchen“ von 35,6 cm x 27 cm aus- 
gegeben. 


Arbeitsweise des Programms 


Dieses Programm läuft auf einem Apple II 
mit mindestens 48K, Diskettenlaufwerk 
und grafikfähigem Drucker. Man kann ver- 
schiedene Vergrößerungsfaktoren einge- 
ben: 2, 4, 8, 20 und 40. Die Faktoren 
geben an, um das Wievielfache sich die 
Kantenlängen des Bildes steigern. Also 
wird ein Bild bei Faktor 4 viermal so breit 
und viermal so hoch. 

Um dies zu erreichen, muß das zu vergrö- 
Bernde Bild in die erste Grafikseite gela- 
den werden. Darauf erfolgt ein Sprung in 
eine Maschinenroutine. Sie unterteilt das 
Originalbild in — den Faktoren entspre- 
chend - kleine Teilbilder, die nacheinan- 
der vergrößert in die zweite Grafikseite 
kopiert werden. Ist ein Teilbild kopiert, er- 
folgt ein Rücksprung nach Applesoft. Nun 
kann eine Hardcopy erstellt werden. Durch 
den Rücksprung nach Applesoft erreicht 
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man, daß diese Routine kompatibel zu al- 
len Druckern ist, die überhaupt grafikfähig 
sind. Denn im Applesoft-Programm kann 
man die Codes, die man für die Grafikaus- 
gabe braucht, bequem einfügen. Diese 
Steuerzeichen müssen sich auf die zweite 
Grafikseite beziehen. 

Ist die Hardcopy ausgegeben, erfolgt wie- 
der ein Sprung in das Maschinenpro- 
gramm. Hier wird wieder ein Teilbild er- 
stellt, dann erfolgt der Rücksprung usw., 
bis das ganze Originalbild abgetastet ist. 
Wenn alles fertig ist, braucht man nur noch 
die gedruckten Bilder aneinanderzukle- 
ben. Um dabei nicht allzu lange puzzlen zu 
müssen, sollte man wissen, daß das Origi- 
nalbild in Zeilen von links oben nach 
rechts unten abgetastet wird und genauso 
die Ausgabe erfolgt. 

Wer eine .20- oder 40fache Vergrößerung 
macht, wird merken, daß das Bild etwas 
verzerrt wird. Das Verhältnis von Höhe 
und Breite ist nicht mehr dassebe wie 
beim Original. Dies ist dadurch zu erklä- 
ren, daß die X- und Y-Achse im Grafikbild- 
schirm nicht dieselben Teiler haben und 
so ein Kompromiß auf Kosten der Y-Achse 
eingegangen wurde, um den Program- 
mieraufwand in Grenzen zu halten. 


Eingeben des Programms 


Beim Abtippen beginnt man zweckmäßi- 
gerweise mit dem Assemblerlisting PLA- 
KAT. Der Objektcode sollte dann mit 
„BSAVE PLAKAT, A$6001, L$01D4“ ge- 
speichert werden. Als nächstes kommt 
das Applesoft-Programm PLAKAT.IN- 
STALL an die Reihe. Es lädt den eben 
erzeugten Objectcode ein und fügt eine 
Tabelle hinzu, in der sortiert die Speicher- 
adressen aller Zeilen der Grafikseiten ste- 
hen. Nach Anlage der Tabelle speichert 
das Programm den erweiterten Objekt- 
code wieder. Die Ausführung des 
INSTALL-Programms dauert ungefähr ei- 


von Mark Liebrand 


ne Minute. (Auf der Peeker-Sammeldis- 
Kette ist das Programm PLAKAT bereits 
installiert, das INSTALL-Programm befin- 
det sich nur der Vollständigkeit halber 
ebenfalls auf der Diskette.) 

Nachdem nun das Gröbste geschafft ist, 
kann man das zweite Applesoft-Programm 
PLAKAT.DEMO eingeben. Dieses Pro- 
gramm soll lediglich zeigen, wie die Ma- 
schinenroutine zu bedienen ist. Es ist auch 
denkbar, es in ähnlicher Form in andere 
Programme einzubauen. Allerdings sollte 
man darauf achten, daß die Variablen des 
Programms nicht das Maschinenpro- 
gramm oder die Grafikseiten berühren, 
sonst können nämlich seltsame Dinge 
passieren. Gegebenenfalls ist HIMEM auf 
8192 ($2000) zu setzen, um Konflikte zu 
vermeiden. 


Aufruf des Programms PLAKAT 


Beim Aufruf der Maschinenroutine kommt 
es darauf an, daß sich das zu vergrößern- 
de Bild in der ersten Grafikseite befindet. 
Wenn das Bild von Diskette geladen wer- 
den soll, erreicht man dies auf jeden Fall 
mit „BLOAD Bildname, A$2000“. 

Außerdem muß der Vergrößerungsfaktor 
in Speicherstelle 255 gepokt werden. 
Dann sollte mit CALL 24577 der erste 
Aufruf (Kaltstart) der Routine erfolgen. Er 
veranlaßt, daß die Zeiger und Variablen 
des Programms initialisiert werden. Direkt 
nach dem Kaltstart wird das erste Teilbild 
auf Grafikseite 2 ausgegeben oder es er- 
folgen zwei Piepstöne, die signalisieren, 
daß der Vergrößerungsfaktor falsch ge- 
wählt wurde. Damit das auch im Programm 
erkannt wird, muß nach diesem CALL- 
Befehl eine Anweisung folgen, die das 
„Statusflag“ (Speicherstelle 254) auf den 
Wert Null hin überprüft. In diesem Fall 
sollte das Programm abgebrochen werden 
oder eine Fehlermeldung erfolgen. 

Nachdem der Kaltstart erfolgreich durch- 
geführt wurde, sollten nun die Befehle er- 
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folgen, die den Drucker zur Ausgabe der 
zweiten Grafikseite veranlassen. 

Danach kann nun durch wiederholten Auf- 
ruf des Warmstarts mittels CALL 24663 
ein Bild nach dem anderen ausgegeben 
werden, bis der Status den Wert Null ein- 
nimmt, d.h. alle Teilbilder wurden abgear- 
beitet. 

Das Programm PLAKAT.DEMO erfüllt die 
oben beschriebenen Anforderungen und 
kann somit ohne Bedenken zum Testen 
benutzt werden. 


Zum Schluß noch drei Hinweise: 

— Wer über kein Grafik-Interface verfügt, 
kann die Teilbilder auch auf Diskette spei- 
chern (BSAVE Bildname, A$4000, 


Tabelle 1 


Maße (cm) Blätter 
35,6x 27 4 
71,2 x 54 16 
142,2 x 198 64 

2 356 x 216 329 

4 712 x 432 1289 


Auflistung der unterschiedlichen Druckformate. 
Die Maßangaben beziehen sich auf die Größe einer normalen 


Hardcopy von 17,8 cm x 13,5 cn 


Kurzanleitung 


. PLAKAT eingeben und mit "BSAVE PLAKAT, A$6ßP1l, L$O1DA" 


abspeichern. 


. PLAKAT.INSTALL eingeben, Diskette mit PLAKAT einlegen 


und PLAKAT.INSTALL starten. 


. PLAKAT.DEMO eingeben und Zeile 7® durch eigene drucker- 


spezifische Hardcopy-Befehle ersetzen. 


PLAKAT.DEMO 


1®8 PRINT CHR$ (4)"BLOAD PLAKAT'" 
28 INPUT "Bildname ? ";FI$ 

3® PRINT CHR$ (4)"BLOAD"FI$" , A$20090" 
40 INPUT "Vergrößerung ?";V 

50 HGR2 : POKE 255,V: CALL 24577 
60 IF PEEK (254) = ® THEN END : 


80 IF PEEK (254) = ® THEN END 
90 CALL 24663: GOTO 7 


PLAKAT.INSTALL 


108 PRINT CHR$ (4)'"BLOAD PLAKAT" 
11 T1 = 25988 


129 T2 
130 T3 
149 T4 


Tl + 256 

T2 + 256 

T3 + 256 

158 FrRA= 910 2 

16® FCrRB=9 10 7 

179 ö TO 7 

18 1024 + B x 128 + A x 40 
190 ((D + 8192) / 256): 
200 ‚L: POKE T2,H 

210 H=H+ 32 

220 POKE T3,L: POKE T4,H 

238 1=T11+1:72=- NR +1:T3 
240 NEXT C,B,A 

250 PRINT 


260 PRINT CHR$ (4)"BSAVE PLAKAT,A$6B01,L$6BW"' 
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REM Faktor falsch 
70 REM Hier die Hardcopy-Befehle des Druckers einfügen! 


= (D + 8192) - H «x 256 


T3 + 1:T74 = T4 + | 





L$2000) und den Ausdruck mit Hilfe des 
Programms SUPERDUMP aus Peeker, 
Heft 6/85 erledigen. 

— Der Drucker bildet die Schwachstelle 
des ganze Systems. Erstens wird der 
Druckkopf bei Grafikausgabe ziemlich 
stark beansprucht: Deshalb sollte man bei 
einer größeren Zahl von Hardcopies die 
durchsichtige Kunststoffabdeckung, die 
Druckkopf und Papier schützt, wegen der 
stärkeren Wärmeentwicklung hoch- 
Klappen. 

Zweitens ist die Zeit zu beachten: Wenn 
der Drucker drei Minuten für eine Hardco- 
py braucht, dann benötigt er für eine 
Afache Vergrößerung ungefähr 48 Minu- 
ten. Überträgt man die auf den Vergröße- 


PLAKAT 
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drucker 44 


rungsfaktor 40, so werden 1280 Bilder ge- 
druckt, was einer Druckzeit von ca. 2 1/2 
Tagen nonstop entspricht. Allerdings 
macht man sicherlich nicht ständig solche 
Ausdrucke, so daß man sich darüber nicht 
den Kopf zerbrechen sollte. 

— Wem das Format 7 mx 4 m noch nicht 
groß genug ist, der sollte bei 40facher 
Vergrößerung die Teilbilder nicht drucken, 
sondern auf ca. 45 Disketten (beidseitig) 
speichern lassen, um diese Bilder dann 
einzeln wieder um den Faktor 40 zu ver- 
größern. Das Ergebnis ist ein Superplakat 
mit den Maßen 284,8 m x 138,2 m, beste- 
hend aus 1638400 Blättern und einer 
Fläche von beinahe 40 000 qm. Das wäre 
ein Fall fürs Guinness Buch der Rekorde. 

4‘ 
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* 


* Mark Liebrand, 1985 


* 
TAB 
TABl 
MEM 
STATUS 
NUM 
TABIlLZ 
TABI1HZ 
TAB2LZ 
TAB2HZ 
FAKZ 
Zl 

23 

Z4 

ZW 

ZzWl 
ZW2 
BELL 

* 


* 


SCHLEIl 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


ORG 


LDX 
LDA 
CMP 
BEQ 
DEX 
BNE 
JSR 
JSR 
LDA 
STA 
RTS 
HEX 


HEX 
HEX 
HEX 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 


$F9 
$FB 
$FD 
$FE 
$FF 
$59 
$52 
$54 
$56 
$58 
$EB 
$EC 
$ED 
$EE 
$EF 
$CE 
$FF3A 


$6001 


#5. ;Prüfen 
ZIFF,X ‚von 
NUM ; NUM 

OK 


SCHLEIl 
BELL ;ERROR, 
BELL ‚Faktor 
#9 ‚falsch 
STATUS 

;Konstanten 
000204081428. 


000204081029 


B01AWAB59201 
B06D3HLBHCHE 


+$80 
STATUS 
ZIFF,X 
FAKl 
ZIFF1,X 
FAK2 
ZIFF2,X 
FAK3 
FAK4 
ZIFF3,X 
FAK6 


‚Konst. 
‚einlesen 


* Zeiger im Original setzen 
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6DAF: 
6051: 
6054: 


6057: 
6059: 
6B5C: 
605F: 
6062: 
6065: 
6067: 
6D6A: 
6B6C: 
6B6F: 
6971: 
6074: 
6076: 
6079: 
6OTB: 
6PTE: 
6H8%: 
6083: 
6085: 
6088: 
6D8A: 
6B8C: 
6P8E: 
609P: 
6992: 
6095: 
6097: 
6099: 
6PSC: 
609F: 
6BA2: 
60A5: 
6BAT: 
6049: 
6QAB: 
6PAD: 
60BP: 
60B2: 
60B4A: 
60B7: 
6QBA: 
6OBC: 
60BD: 
6OBE: 
6ocB: 
6902: 
60C5: 
6008: 
6OCA: 
6ÖCD: 
6ÖCF: 
6D1: 
60D3: 
60D5: 
60D6: 
60D9: 
6PDC: 
6ÖDF: 
6PEP: 
60E3: 
60E5: 
6DET: 
6DEA: 
60ED: 
6PFP: 
6ÖF3: 
6PFA: 
SOFT: 
6OFA: 
6ÖFC: 
6ÖFF: 
6192: 
6193: 
6196: 
6198: 
61PB: 
61ldC: 
61PF: 
6112: 
6113: 
6114: 
6117: 
6118: 
611B: 
61l1E: 
6121: 
6124: 
6126: 
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A9 BB 
8D C8 
8D C9 


A9 99 


61 
61 


61 
61 
61 
61 
61 
61 
61 
61 
61 
61 


61 


61 


61 
61 
61 
61 


61 


61 
61 


61 
61 


61 


61 


61 


61 
61 


ED 04 61 


AD C4 
8D C5 
ac BC 
20 FF 
A9 28 


61 
61 
61 
69 


56 
57 
58 
59 
69 


63 


198 
199 
119 
133 
112 
113 
114 
115 
116 
117 
118 
119 
129 
121 
122 
123 
124 
125 
126 
127 
128 
129 
13 
131 
132 
133 
134 
135 
136 


137 


138 
139 
149 
141 
142 
143 
144 
145 
146 
147 


* Zeiger 


WSTART 


WEITER1 


SCHLEIS 


SCHLEI2 


WEITER 


BACK 


NULL 


BACK1 


PRUEF 


ZEILE 


SCHLUSS 


LDA #9 

STA ZEIGI ;X-Koord. 
STA ZEIG2 ;Y-Koord. 
im Teilbild setzen 

LDA #9 ;Warmstart 
STA ZEIG3 ;X-Koord. 
STA ZEIG4 ;Y-Koord. 
LDY ZEIG2 

LDA TAB2L 

STA TAB2LZ 
LDA TAB2L+1 
STA TAB2LZ+1 
LDA TAB2H 

STA TAB2HZ 
LDA TAB2H+1 
STA TAB2HZ+1 
LDA TABIL 

STA TABILZ 
LDA TABIlL+1l 
STA TABIlLZ+1 
LDA TABI1H 

STA TABIlHZ 
LDA TABIlH+1 
STA TABIHZ+1 
LDA (TABILZ),Y 
STA TAB ‚Zeilen- 
LDA (TABIHZ),Y ;adresse 
STA TAB+l ; (Original) 
LDY ZEIGLl 

LDA (TAB),Y 
STA MEM 

JSR BITS 

LDA FAK2 

STA FAKS 

LDY ZEIG4 

LDA (TAB2LZ),Y 
STA TABl 

LDA (TAB2HZ),Y 
STA TABIl+l 

LDA FAKl 

STA FAKZ 

LDX #9 

LDY ZEIG3 

LDA ARRAY,X ‚des 
STA (TABl),Y ‚Arrays 
INX ‚auf 
INY ;Bild- 
DEC FAKZ ‚schirm 
BNE SCHLEI2 
INC ZEIG4 
DEC FAK5S 
BNE SCHLEI3 
LDA ZEIG4 
CMP #192 
BNE WEITER 
CPY #$28 
BEQ SCHLUSS 
SEC 

SBC FAK2 
STA ZEIG4 
LDA ZEIG3 
CLC 

ADC FAKLl 
CMP +#$28 
BEQ NULL 
STA ZEIG3 
JSR ADD 
JMP WEITERl 
LDA ZEIG4 
CLC 

ADC FAK2 
STA ZEIG4 
LDA #9 

JMP BACK 
LDX ZEIGl 
INX 

DEC FAK4 
BEQ ZEILE 
STX ZEIGIl 
RTS 

INC ZEIG2 
JMP BACKl 
TXA 

SEC 

SBC FAK3 
TAX 

LDA FAK3 
STA FAK4 
JMP PRUEF 
JSR ADD 

LDA #$28 
SEC 


‚Pointer 
‚in die 
‚Zeropage 
‚legen 


;‚Bit- 
‚zerlegung 


‚Ausgabe 


‚auf 
;Ende 
‚prüfen 


‚Zeiger 
‚neu 
‚setzen 


6127: ED 
612A: CD 
612D: FB 
612F: AD 
6132: 38 
6133: ED 
6136: 8D 
6139: AD 
613C: 18 
613D: 6D 
6149: 8D 
6143: 69 
6144: A9 
6146: 8D 
6149: AD 
614C: C9 
614E: DP 
6159: 29 
6153: 29 
6156: A9 
6158: 85 
615A: 69 
615B: A2 
615D: A9 
615F: 9D 
6162: CA 
6163: D® 
6165: 9D 
6168: 86 
616A: A2 
616C: 86 
616E: 86 
6170: 86 
6172: AD 
6175: 85 
6177: A5 
6179: PA 
617A: BA 
617B: CA 
617C: DP® 
617E: BP 
6189: A9Y 
6182: AC 
6185: A9 
6187: 85 
6189: A4 
618B: A5 
618D: CP 
618F: FO 
6191: PA 
6192: C8 
6193: AC 
6196: A6 
6198: 18 
6199: 7D 
619C: 9D 
619F: C6 
6lAl: FO 
61A3: AA 
61A5: C6 
61A7T: DP® 
61A9: A6 
61AB: CA 
6lAC: 86 
61lAE: DP 
61Bß: 69 
61Bl: E6 
61B3: A9 
61B5: 85 
61B7: A4 
61B9: 88 
61BA: CC 
61BD: FP 
61BF: AC 
61C2: Bd 
61c3: BP 
61C4A: Bd 
6105: BP 
61lC6: BP 
6107: 90 
6108: BB 
61c9: 99 
6lCA: BB 
6lCB: PB 
6lCC: 99 
6ICE: PB 
61D9: PB 
61D2: ®® 
61D4: 99 


468 Bytes 


c4 
c8 
15 
c9 


FC 
95 
9 
87 


EE 
EC 


97 
05 


8D 
ED 


D4 
D4 


DE 
EC 
EF 
E2 


EB 
c2 
ED 


EC 
ED 


c2 
Fl 
A3 


61 
61 


61 


61 
61 
61 


61 
61 


61 
61 


FF 
FF 


61 


61 


61 


61 


61 


61 
61 


61 


61 


148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
19 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
292 
203 
204 
205 
206 
297 
208 
299 
219 
213 
212 
213 
214 
215 
216 
217 
218 
219 
229 
221 
222 
223 
224 
225 
226 
227 
228 
229 
239 
231 
232 
233 
234 
235 
236 


NZ 


BACK2 
BITS 


SCHLEI7 


SCHLEI4 


SCHLEI41 


CARRY 
WEITER2 


SCHLEI6 
SCHLEIS 


NOROL 


ZURUECK 


ENDES3 
NEXTX 


FAK1l 
FAK2 
FAKS3 
FAK4 
FAKS 
FAK6 
ZEIGl 
ZEIG2 
ZEIG3 
ZEIG4 
TABIlL 
TABI1H 
TAB2L 
TAB2H 
ARRAY 


SBC 
CMP 
BEQ 
LDA 
SEC 
SBC 
STA 
LDA 
CLC 
ADC 
STA 
RTS 
LDA 
STA 
LDA 
CMP 
BNE 
JSR 
JSR 
LDA 
STA 
RTS 
LDX 
LDA 
STA 
DEX 
BNE 
STA 
STX 
LDX 
STX 
STX 
STX 
LDA 
STA 
LDA 
ASL 
ASL 
DEX 
BNE 
BCS 
LDA 
JMP 
LDA 
STA 
LDY 
LDA 
CPY 
BEQ 
ASL 
INY 
JMP 
LDX 
CLC 
ADC 
STA 
DEC 
BEQ 
LDY 
DEC 
BNE 
LDX 
DEX 
STX 
BNE 
RTS 
INC 
LDA 
STA 
LDY 
DEY 
CPY 
BEQ 
JMP 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


FAKS 
ZEIGl 
NZ 
ZEIG2 


FAK6 
ZEIG2 
ZEIG1 


FAKS 
ZEIG1l 


+9 
ZEIGl 
ZEIG2 
+192 
BACK2 
BELL 
BELL 
+0 
STATUS 


+49 
+0 
ARRAY,X 


SCHLEI7 
ARRAY,X 
24 

#7 

ZW2 

25 

Zz1l 

FAKl 
zWl 

MEM 


SCHLEI41 


CARRY 
#9 
WEITERZ 
#1 

ZW 

25 

ZW 

#7 
NOROL 


SCHLEIS 
Zz4 


ARRAY,X 
ARRAY,X 
23 
NEXTX 
23 

ZzWl 
SCHLEI6 
Zz1l 


Zz1l 
SCHLEI4 


Z4 
#7 
23 
24 


FAKl 
ENDE3 
ZURUECK 
1%") 

99 

09 

nn) 

99 

W) 

WW) 

99 

ln) 

WW) 
0062 
0063 
0064 
0065 
09 





‚zurück 
‚nach 
;BASIC 


‚fertig 


‚Array 
‚löschen 


‚Byte- 
‚zähler 


‚Bit vom 
;Bild 


‚Bit 7 raus 


‚schieben 


‚addieren 
‚speichern 


fertig 


;Programm- 
‚Variablen 


;‚Tabellen- 
‚zeiger 


4 


Peeker 11/85 


tm 4422 


SYSTEMAUFBAU DATENBANK 
SCHREIBTISCHMANAGER -RECHENBLATT 


V.BOTTA / CHR.LANGE / K. ZIMMERMANN 





e-ni 


Band 1: 
Einleitung 
Was Sie benötigen 
Starten von APPLE WORKS 
Der Schreibtischmanager 
. Datenbank 
6. Rechenblatt 


TEXTBEARBEITUNG - ACCESS II- DATENFERN- 


ÜBERTRAGUNG - SYSTEMINFORMATIONEN 


V.BOTTA / CHR.LANGE / K. ZIMMERMANN 





Ban 


e-ıni 


d2: 

Einleitung 

Was Sie benötigen 

Starten von APPLE WORKS 
Der Schreibtischmanager 
Textbearbeitung 
Datenfernübertragung 


...A6 wie Band 1. dazu: 
Modemkabel für APPLE Ile. IIc 
, SuperSerialCard: Einstellung 
ASCII-Textdateien aus anderen 
Dateiformaten für ACCESS II 
A10 DATEX-P20O F Verzeichnis 
All Deutsche/Englische Menübilder 
von ACCESS II 


Al Anschluß der Festplatte ProFile 

A2 APPLE II Easy Pieces Referenz 

A3 Druckeranpassungen 

A4 DOS 3.3 Konvertierungen 

A5 APPLE WORKS Disketten sichern 
kopieren 

A6 Hilfsfunktionen nach Programmteilen 


Von Botta/Lange/Zimmermann je 264 Seiten, 
Softcover, je DM 49,- 


APPLE WORKS auf APPLE II, Ile, IIc: 

verwandelt APPLE-II-Computer in einen Elektroni- 

schen Schreibtischmanager mit: 
Texterstellung ...Edition, Briefarchiv, Ausdruck etc. 
Datenarchivierung ... Kontoführung, Buchhaltung 
etc. Formblattkalkulation ...Bilanzen, VisiCalc- 
Dateien etc. Datenfernübertragung ...Mailbox, 
Rechnerkopplung etc. 

@ ist ein erfolgreicheres Integrationspaket als LOTUS 
auf IBM PC! 

@ ist auf 1 MByte Speichererweiterungen Ihres 
APPLE II vorbereitet! 

® erschließt Ihnen die Zukunftstechnik MAILBOX! 

@ ist ebenso einfach zu bedienen wie APPLE 
WRITER: 
Kein Befehlsstudium ...Einfachste Menü- 
führung ... Sofortige Anwendbarkeit 


te-wi’s APPLE WORKS SYSTEMBÜCHER 1+2 

zeigen Ihnen: 

e Sämtliche APPLE WORKS Funktionen an Beispie- 
len aus der Wirtschaft 

® Das Wechseln zwischen Text/Rechenblatt/Daten- 
archiv/Dfü 

@ Umfassende Systeminformationen zu Dateikonver- 
tierung, Druckeranpassung etc. 


te-wi Verlag GmbH 
Theo-Prosel-Weg 1 
8000 München 40 


mul 


Weitere te-wi-Bücher 


Net, 


Das 

APPLE II/iI+/He/Ic-Handbuch 
(L. Poole) 

Erst mit Hilfe dieses Leitfadens werden Sie 
Ihren Apple Il erfolgreich einsetzen. denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angeboten wird. 

Neu überarbeitet und jetzt um die spezifi- 
schen Eigenheiten der Modellel e und II c 
erweitert. 472 Seiten, Softcover. DM 66,- 


Lon Poole, Martin MeNiff &:Steven Cook 
en 


LOGO - 
Jeder kann programmieren 

»| (Daniel Watt) 
Buch des Jahres in den U SA. Für die 
Computer APPLE II, C-64, IBM PC, 

ı ATARI bis 520 ST., TI-99 und Schneider 
CPCs. 
Hochwertiges Textbuch für Logo-Kurse 
zu Hause und im Lehrbereich. 


384 Seiten, A4, DM 59,— 





APPLE 


MASCHINEN 


SPRACHE 


APPLE Il - Bewegte 3D-Graphik 
(Phil Cohen) 

Selbstentworfene Graphiken und Dia 
gramme — animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 

200 Seiten. Softcover. DM 49.- 


/ ‚ Net, 
|Reparaturanleitung Computer: 
|Apple II, IIplus 
Einzigartige Serviceunterlage für Reparatu- 
ren und Entwicklungsarbeiten am Apple Il. 
Enthält Schaltpläne. Bauteile- und Ver- 
gleichstypenliste: Prüfpunkte mit Oszillo- 
_|grammen der Signalformen., Logiktabellen. 
_ |Spannungsangaben: schnelle Servicetests: 
- | Anleitung zur systematischen Fehlersuche. 


DON INMAN - KURT INMAN 


_ ALLE 
MICAL 


Apple Maschinensprache 
Für BASIC-Programmierer der einfachste 
‚| Zugang zur Muttersprache des APPLE. Wesent- 
| lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
#1 APPLE - als Brücke dorthin benötigt dieses 
= @aa Buch nur die drei BASIC-Befehle POKE, 
a8 CALL. PEEK. D. Inman/K. Inman. DM 49,- 


Erstes deutsches Referenzwerk sämt- 
licher Befehle und Systemroutinen von 
Apple II, IIplus. Ile 

APPLE II PASCAL Ver, 
Betriebssystem, 272 S., DM 49.- 
Sprache. 216 S., DM 39.- 

Pascal 1.2 Addendum. 112 S., DM 36.- 


Betriebssystem 


Grundlagenbuch. Bestseller 
APPLE II PASCAL. 
Eine praktische Anleitung. 





ll In A4-Mappe. DM 29.80 


Noch im Programm: 

Computer für Kinder, APPLE II, DM 29,80 

6502 Programmieren in Assembler, DM 59,- 
Umweltdynamik (Prospekt anfordern), DM 66,- (NEU) 


544 S.. DM 59.- 


Macintosh Programmierhandbuch mit MSBASIC 2.0 
(Ende ’85), DM 59,- 

Einführung in die Mikrocomputer-Technik, DM 66,- 
M68000-Familie, 2 Bände, DM 79,- und DM 69,- 








Disk-Chirurg 


Ein Programm zur Überprüfung 
schadhafter Diskettensektoren 


von Wolf-J. Faust 


Sind Sie sicher, daß Ihre Daten noch lange 
auf der Diskette erhalten bleiben? DISK 
‚CHIRURG überprüft für Sie die Diskette 
auf dem Apple Il. Sind die Daten nicht 
mehr sicher auf der Diskette gespeichert, 
können sie repariert werden. 


Die Funktionsweise 


Die Funktionsweise des Programms ist re- 
lativ einfach. Eine Diskette besteht aus 35 
($00-$22) Spuren mit jeweils 16 ($00- 
$0F) Sektoren. Soll ein Sektor auf einer 
Spur eingelesen werden, so wird der 
Schreib/Lesekopf zu der gewünschten 
Spur gefahren. Dann liest das DOS nach- 
einander alle Sektoren, bis der gewünsch- 
te Sektor gefunden ist. Die Anzahl der 
gelesenen Sektoren wird von dem Pro- 
gramm oben am Bildschirm mit der Mel- 
dung „GELESENE SEKTOREN“ ange- 
zeigt (hexadezimal). Werden mehr als $OF 
Sektoren benötigt, so bedeutet dies, daß 
der Sektor beim ersten Umlauf der Spur 
nicht gelesen werden konnte. Ist der Sek- 
tor nach dem dritten Versuch immer noch 
nicht eingelesen (GELESENE SEKTOREN 
= $30), wird der Schreib/Lesekopf des 
Diskettenlaufwerks hörbar zur Spur Null 
gefahren, um wiederum dreimal zu versu- 
chen, den Sektor einzulesen. Konnte der 
Sektor nach diesem sechsten Mal immer 
noch nicht richtig eingelesen werden, so 
wird ein „/O ERROR“ gemeldet. 

Wer mehr zu diesem Thema wissen 
möchte, kann in dem Buch „All about 
DOS“ von A.P.P.L.E. den Artikel „Disk 
Error Checking“ von A. Rose nachlesen. 
Dort steht auch das kleine von mir verwen- 
dete Programm zum Umschreiben der 
DOS-Adressen und Anzeigen der Spur 
und der gelesenen Sektoren. 

Mein Programm verwendet darüber hinaus 
die RWTS-Routine des DOS, um die Sek- 
toren nacheinander einzulesen. Da die 
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RWTS-Routine meist bei den verschiede- 
nen DOS-Versionen gleich ist, läuft das 
Programm im allgemeinen auch mit ge- 
patchtem DOS. 

Sicherheitshalber sollte es jedoch zu- 
nächst an einer unwichtigen Diskette gete- 
stet werden, indem das Laufwerk während 
des Lesens kurz geöffnet wird, um einen 
Lesefehler vorzutäuschen. 


Die Bedienung 


Das Programm ist vollkommen menüge- 
steuert: 


D — Schaltet das Laufwerk um (Drive 1 
nach Drive 2 oder umgekehrt). 

R - Mit Hilfe der Taste „R“ kann „REPA- 
RATUR” ein- oder ausgeschaltet werden. 
Bei eingeschalteter „REPARATUR“ wer- 
den nicht mehr sehr gut erhaltene Daten 
repariert, d.h. sie werden erneut geschrie- 
ben. Ist „REPARATUR ausgeschaltet, so 
wird nur die Diskette überprüft. 

M - Diese Taste ist nur von Bedeutung, 
wenn die Option „REPARATUR“ einge- 
schaltet ist. Ist de „MELDUNG“ gewählt 
(AN), so wird sicherheitshalber gefragt, ob 
die Diskette tatsächlich repariert werden 
soll. Im anderen Fall wird der Sektor auto- 
matisch neu geschrieben. 

S — Wird die Taste „S“ gedrückt, muß 
zunächst die erste zu prüfende Spur ein- 
gegeben werden. Dies geschieht mit Hilfe 
der Cursor-Tasten. Der Links-Pfeil verklei- 
nert und der Rechts-Pfeil vergrößert die 
Spur. Die Eingabe wird mit Return been- 
det. Danach wird nach der letzten Spur 
gefragt. Auch hier wird wieder die Eingabe 
mit den Cursor-Tasten und Return gesteu- 
ert. Beim Start des Programms werden die 
Werte zur Prüfung der ganzen Diskette 
eingesetzt (Spur $00-$22). 

Leertaste — Mit der Leertaste starten Sie 
die Untersuchung der Diskette. 


ESC - Die Escape-Taste beendet jede 
Eingabe oder die Ausführung des Pro- 
gramms und Sie kehren zu dem Menü 
zurück. Beim Drücken der Escape-Taste 
in dem Menü wird neu gebootet (da das 
DOS gepatcht wurde). 


Meldungen 


„GELESENE SEKTOREN“ — Anzahl der 
gelesenen Sektoren (hexadezimal), bis 
der gewünschte Sektor richtig eingelesen 
wurde. 

„LESE SPUR“ - Anzeige der zuletzt gele- 
senen Spur (hexadezimal). 

„;" - Der Sektor ist noch gut erhalten. 
„1“ - Der Sektor konnte bei dem ersten 
Versuch nicht eingelesen werden. Sie 
sollten die Diskette reparieren lassen. 

„2“ - Der Sektor konnte erst nach dem 
dritten Versuch eingelesen werden. Die 
Diskette ist fast zerstört. Lassen Sie die 
Diskette unbedingt reparieren! 

„S“ — Fehler bei der Diskettenstation: Ir- 
gend etwas Ungewöhnliches ist gesche- 
hen, oder der Sektor konnte nach dem 
sechsten Versuch nicht gelesen werden. 
„W“ - Die Diskette kann nicht repariert 
werden, da sie schreibgeschützt ist. Bitte 
entfernen Sie den Schreibschutz. 

„U“ - Lesefehler: Nach sechs Versuchen 
konnte der Sektor nicht eingelesen 
werden. 


Anm. d. Red.: Das nochmalige Überschrei- 
ben eines Sektors schafft nicht in jedem 
Fall Abhilfe gegen Datenverlust (der häu- 
figste Grund von Diskettenausfällen liegt 
an der Abnutzung der Magnetschicht durch 
Abrieb). Wird der Zustand eines Sektors 
beim Überprüfen der Diskette mit „1“ oder 
„2“ quittiert, sollte dahereine Kopie erstellt 
werden (z.B. mit COPYA oder QUICK- 
COPY aus Peeker, Heft 1/2-85). 
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Kurzhinweise 


l. Zweck: 

Überprüfung aller Sektoren einer Diskette 
2. Konfiguration 

II+, IIe oder Ilc; 

DOS 3.3 

3. Test: 

RUN DISK. CHIRURG 

4. Sammeldisk: 

DISK. CHIRURG 

(Applesoft-Programm) 


DISK.CHIRURG 


108 PRINT CHR$ (21):A = 1:B$ = "AN ":C$ = B$:B = P:C = 34 
110 DATA 169,32,141,201,189,169,82,141,202,189,169,3,141,293, 
189,169,122,141,119®,199,169,3,141,111,1990,169,1,133,34, 
162,0,189,43,3,157,0,4,232,224,38,208,245,96,199,197,204, 
29E 5211,17 
DATA 206,197,160,211,197,203,212,207,2190,197,206,189,169, 
160, 169,169,160,169,160,204,197,211,197,160,211,208,213, 
210,189,169,169,169,160,169,48,56,237,120,5,72,74,74,74, 
74,9,176,201,186,144 
DATA 2,105,6,141,19,4,104,41,15,9,176,2@1,186,144,2,105, 
6,141,20,4,206,120,5,96,72,74,72,74,74,74,74,9,176,2®1, 
186, 144,2,105,6,141,36,4,104,41,15,9,176,2@1,186 
DATA 144,2,105,6,141,37,4,104,76,142,190,1,96,1,0,18,6, 
175,3,0,80,0,0,1,0,0,96,2,0,1,239,216,169,3,169,158,32, 
217,3,144,1,96,169,9,141,171,3,96 
RESTORE : FOR I = 768 TO 962: READ Il: POKE I,Il: NEXT 
HOME : VTAB 3: INVERSE : PRINT 
" HoyayaaannvdVVLL111111111111111222 ": PRINT 
" 9123456789ABCDEFß123456789ABCDEFP1l2 ":A$ = 
"9123456789ABCDEF" 
FOR D=5 TO 29: VTAB D:E = ASC ( MID$ (A$,D - 4,1)): 
PRINT CHR$ (E);: HTAB 37: PRINT CHR$ (E): NEXT 
VTAB 9: HTAB 12: PRINT "DISK-CHIRURG"; : NORMAL : PRINT 
: HTAB 12: PRINT "WOLF-J.FAUST": HTAB 12: PRINT 
"ODENWALDSCHULE": HTAB 12: PRINT "6148 HEPPENHEIM 4": 
CALL 768 
VTAB 22: PRINT "(";: INVERSE : PRINT '"D";: NORMAL 
PRINT ")ISK= "; PEEK (928);" (";: INVERSE : PRINT "R";: 
NORMAL : PRINT ")EPARATUR=";B$;'" ('";: INVERSE : PRINT 
"M";: NORMAL 
PRINT ")ELDUNG=";C$;"(";: INVERSE : PRINT " ";: NORMAL 
PRINT ")=START (";: INVERSE : PRINT "S";: NORMAL 
PRINT ")PUR (";: INVERSE : PRINT "ESC";: 
NORMAL : PRINT ")= STOP": POKE - 16368, 
D = PEEK ( - 16384): IF D < 127 THEN 219 
POKE - 16368,9: IF D = 155 THEN POKE 34,9: HOME : CALL 
50688: END 

















XT16PC 


16 Bit 8088 Rechner 
vollständig Kompatibel, 
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(&] ausgerüstet mit: 
Colorcard, 

r 256 RAM 

u Floppy Controller, 

= 1 Drive, 4 K, | | ‚ 
deutsche Tastatur, mn 

MB 130 W Netzteil „) FLUSTER-FLOPPY 

si] XT 16PC | 

e mit 6 MByte Winchester aus 
XT 1 6 WLC 4499 DM mit Kabel und Gehäuse 


230 
240 
259 


260 
270 
280 
299 


509 
319 
320 


330 


349 


359 
369 


378 


380 
390 
400 


410 
420 


430 
440 
450 
469 
470 
480 
490 
509 
519 
529 
539 
549 


559 
56® 
579 


580 


599 





3,5“ Pana. JU 363 479DM 
135 tpi2x 80 track 1 MByte 


TEAC FD55B 379 DM 
48 tpi 2 x 40 track 500 yo] 


TEAC FD55F 449 DM] 
96 tpi 2x 80 track 1 MByte 

SANYO BFT540 399DM 
48 tpi 2 x 40 track 500 KByte 


SANYO BFT580 449DM 
96 tpi2x 80 track 1 MByte 


CHINON F-502 399 DM 
48 tpi 2 x 40 track 500 KByte 


REMEX RFD 480 329 DM 
48 tpi 2 x 40 track 500 KByte 


Apple AFD55A 399 DM 
mit Kabel und Gehäuse 


STATIONEN 
2x8“ SSDD 
2x8“ DSDD 


Auf alle Geräte 6 Monate Garantie - Änderungen, die technischen Verbesserungen dienen, vorbehalten - Lieferbedingungen auf Anfrage - Lieferung solange Vorrat reicht - 


4 dos23 Er: 


IF D = 196 THEN D = PEEK (928): POKE 928,1: IFD=|1 
THEN POKE 928,2 


IF D = 21® THEN A$ = B$:B$ = "AN ": IF A$ = "AN " THEN 
B$ = "HAUS" 

IF D = 285 THEN A$ = C$:C$ = "AN ": IF A$ = "AN " THEN 
c$ = HAUS" 

IF D = 169 THEN 29 

IF D = 211 THEN 409 

GOTO 199 

VTAB 8: FOR D = 1 TO 7: HTAB 12: PRINT SPC( 28): PRINT 


NEXT : GOSUB 599: PRINT "DISKETTE IN LAUFWERK "; PEEK 
(928) ;" EINLEGEN": POKE — 16368, 


IF PEEK ( - 16384) < 127 THEN 3ß® 

IF PEEK ( — 16384) = 155 THEN 549 

GOSUB 578: POKE - 16368,0: FORRF=B TO C: FRG=9 [TO 
15: IF PEEK ( - 16384) = 155 THEN 549 

POKE 930,F: POKE 931,G: POKE 938,1: POKE 939,9: CALL 


947: VTAB G + 5: HTAB F + 2: ON PEEK (939) / 16 +1 
GOTO 349,509,519,519,519,519,519,519,529 


D = PEEK (1043) - 176: IFD= ® OR D = - 16 THEN PRINT 
",.n. GOTO 530 
INVERSE : PRINT D: NORMAL : IF B$ = "AUS" THEN 530 


IF C$ = "AN " THEN GOSUB 599: PRINT "SOLL ICH 
REPARIEREN (J/N) ? N";: CALL 64528: POKE - 16368,9: GET 
A$: GOSUB 579: IF NOT (A$ = "J") THEN 539 

POKE 938,2: CALL 947: POKE 938,1: VTAB G + 5: HTAB F + 
2: ON PEEK (939) / 16 + 1 GOTO 
380,500,519,5190,519,519,519,519,52® 

IF PEEK (1043) - 176 < > D THEN 349 


GOTO 53® 
GOSUB 599: PRINT "VON SPUR =>";:D = B:H = ®: GOSUB 
Aal®:B = D: HTAB 1: PRINT "ZU ";:D = C:H = B: GOSUB 


41ß:C = D: GOTO 169 

INVERSE :I =D: IFH>DTHEND=H 

HTAB 12: PRINT INT (D / 16);:E =D - INT (D / 16) «= 16 
+ 176: IFE > 185 THENE=E+H7 

PRINT CHR$ (E);: POKE - 16368, 

E = PEEK ( - 16384): IF E < 127 THEN 449 

IF E = 155 THEN D = E: NORMAL : GOTO 169 

IF E= 149 THEND=D+ 1: IF D= 35 THEN D= 34 
IF E= 156 THEND=D- 1: IFD<HTHEND=H 
IF E = 141 THEN NORMAL : RETURN 

GOTO 429 

INVERSE : PRINT "W'": NORMAL : GOTO 539 

INVERSE : PRINT '"S": NORMAL : GOTO 539 

INVERSE : PRINT 'U": NORMAL 

NEXT : NEXT 


GOSUB 599: PRINT "TASTE DRUECKEN, UM WEITERZUMACHEN!": 
POKE - 16368, 

IF PEEK ( - 16384) < 127 THEN 559 

GOTO 169 

GOSUB 599: INVERSE : PRINT ";";: NORMAL : PRINT "=IN 
ORDNUNG ";: INVERSE : PRINT "2,3";: NORMAL : PRINT 
"=FAST DEFEKT ";: INVERSE : PRINT "S";: NORMAL 

PRINT "=FEHLER ";: INVERSE : PRINT "W";: NORMAL : PRINT 
" = SCHREIBGESCHUETZT ";: INVERSE : PRINT "U";: 
NORMAL : PRINT '" = UNLESBAR": RETURN 

VTAB 21: HTAB 1: PRINT SPC( 12®);: VTAB 22: RETURN 


[ 




















@ MX 80 + Graftrax Compatible 
® 100Zeichen/9x11Matrix,6Zeichensätze 
® Parallel + RS232, Einzelblatt u. Traktor 
für IBM angepaßt 749 DM 699 DM 


==G Postfach 200401 





KIT 1399 DM == 5 EV J.-W.-Lindlar-Straße 8 
KIT = 5060 Bergisch Gladbach 2 
1999 DM EYE W121. (02202) 31007 -Tx. 8873518 
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Verkauf Software 


Astrologie: Berechn. u. Graphik. 
Info n. voreins. 1 DM in Briefm., 
C. Landscheidt, Im Dorfe 14, 
D-2804 Lilienthal. 


Computer-Literatur: 
Liste bei: Lindemanns 


Buchhandil. kostenlos. 
Nadlerstr. 10, 7000 Stuttgart-1 





— — STOCKMASTER II — — — 
Das Apple-Programm für echte 
Börsengewinne. Diskette 485,- 
DM. Beschreibung P10 anfordern 
bei Töngi, COMPUTER-PRAXIS, 
Aspeltstr. 4, D-6500 Mainz 1 


, Apple: AW-ll-Manual (dtsch) 
+ WP., VS = 25 DM, Privat-Datei 
(463 Sätze/Disk) VS = 80 DM, 
dBASE Privat-Datei VS = 80 DM, 
Inventur-Prog. für Steinmetze DM 
250,— Manuale + WS + MM, EZ- 
Draw bei: 084 61/8453/ 1061 


AP 22: Jetzt TURBO-PAS- 
CAL-Grafik. Include-File für Ihre 
Programme. Info frei, Prgm. auf 
Disk DM 70. Rüter, Rahdener Str. 
65, 4955 Hille 


MATHE-STAR mathemati- 
scher Editor für I\/Ile: 4 freidefi- 
nierbare Zeichensätze; Blockkom- 
mandos; viele Spezialbefehle. Pr: 
198,-, Manfred Albracht, Knospen- 
weg 2, 5010 Bergheim, 

T. 02271/94504 


Hochwertige Astrologie- 
Programme für Apple Il/Plotter- 
Routinen für HP, EPSON HI-80, 
WATANABE, u.a. Alles weitere bei 
ROJASOFT, Postfach 4461, 
CH-8022 Zürich oder unter 

T. 0041-1-241 3337 


Private Kleinanzeigen: 
1 Druckzeile a 32 Buch- 
staben nur DM 5,— 
zuzügl. ges. MwSt. 


Für Ihren Apple Il+ mit 80 
Zeichen die Fakturierung! Pro- 
gramm 398,— Demodisk 38,— DM. 
Infos m. Rückumschlag. SSG Soft- 
ware Service Gruschke, Königstr. 
53, 1000 Berlin 42 


MEMDOS Kartenversion ori- 
ginal neu, DM 398,— 
Tel. 0731/57516 





Apple Freunde, tolle Program- 
me aus vielen Gebieten! Schach! 
Public Domain Software, jede Vo- 
lume nur 22,— DM! Und Lehrpro- 
gramme! Gratisinfo: Fa. Waltraud 
Muhle, Waldwinkel 3, 2105 Seeve- 
tal 3 


PIRATE DEFENCE 2.0 Ko- 
pierschutz. Die Antwort auf die 
neuen Nibble Kopierer wie: COPY 
Il + 5.4, EDD, LOCKSMITH 5.0, ... 
Ab jeizt neben DOS 3.3 auch für 
ProDOS und DIVERSIDOS mit 
vielen Utilities. Info (50 Pf.) bei: 
Chr. Bregler, Tulpenstraße 2, 7519 
Eppingen. Händleranfragen er- 
wünscht. 


fig-FORTH — DM 15,00 
Assemblerlisting f. APPLE DM 15 
FORTH auf Disk f. APPLE DM 45 
Info kostenlos — C. Schmidt, Bun- 
gestr. 8, 3500 Kassel 


it WARGAMES irrt 


Die Besten von SSI für APPLE C 
64 ATARI. 
Info gegen 80 Pfg. RP 


Computer-Service Th. Müller 
Postfach 2526 
7600 Offenburg 


Apple Il: Fahrschul-Lern- 
prog. 32 Fragebögen, T. 07151/ 
61584 


Apple Works orig. Deutsch 
für IIc und Ile DM 480,— 
T. 05041/1688 


Verkauf Hardware 


BASIS-108 (VERS.A4)-2 Sie- 
mens-F122 128KB-RAM-Apple 
+ BASIS im ROM. Incl. Software 
3000,—- DM - 06352/8765. 


TASTATUR DECODER für Il+ 
AUTO REPEAT, groß/kleinsch. 
Umlaute, 8 Cursor- & 18 Funk- 
tionstasten. nur DM 99,— 

T. 06074/96524 


2 TEAC FD-55F Laufwerke + 
Ehring Controller (FDC4) unbe- 
nutzt 1250,— DM 

T. 06181/87895 


* Grafik-Karte für Apple Il+ 
komp x Auflösung max. 512 x 
512 Preis 450 DM inkl. Softw. u. 
Manual. 0231/67 9422 


Disk-Laufwerk für Apple, 40 
Tr., 100 % komp. — 250,— DM Apple- 
Schaltnetzteil 7,5 A - 150 DM. 

T. 0451/895697 ab 16 Uhr. 


Deutsche Sprachausgabe 
für Apple Il Testbericht in 
Peeker 9/85 - M. Bönig, Wup- 
perstr. 11, 4600 Dortmund 50, 
02 31/718721 


Apple II + 64K, org., Disk, 
Contr., Z80, 80Z, Moni, Sep. Tast., 
Software, Lita, 2800 DM, 

T. 040/27904.00 


Apple Il (komp) 64 K, 2 Flop- 
py, Z80, 80Z, Monitor, Joyst, Ep- 
son RX 80F/T Grafikinterface, div. 
Software, auch einzeln VB, 

Tel. 02678/1001 


Org. Applesoft-ROM-CARD 
DM 120,- Netzteil 5A — neu — DM 
100,-— H. Weise, Bergstr. 21, 
7148 Remseck 3 


Apple Ilic, Monitor, Mouse Ile 
Joystick, Disk IIc, & Mon. alt 
VB 3700,- DM, T. 02557/485 ab 
18h. 


Fernschreiberinterface am 
Gameport m. Programm DM 79,— 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


Apple Il kompatibles 64 K 
System 

— TEAC-Floppies: 160 K + 640 K 
— Monitor (bernstein) mit 22 Mhz 
— FX-80 F/T + Grappler Interface 
—- CP/M, 80 Z-Karte, Erphi-Cont. 
Sehr günstiger Preis: 
05121/22667 


MACINTOSH UMRÜSTUNG 
von 128K auf 512 K DM 857,- + 
MWST FAST. Electronic GmbH, 
Kapuziner Str. 20, 8000 München 
20, T. 089/77 7252 


Apple Il komp. 64K CPM 80Z 2 
Disk Operator Tast. Monitor Soft- 
ware 1 Jahr alt - 02371/12170 


Suche Apple-Fan für Interes- 
senaustausch im Raum Backnang 
— Chiffre P1006 


PEEKER 494449 
Börse 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/2768864, Tx. 772642 aaad 


APPLE REPARATUREN 
SCHNELL + GUT, Innerh. 1 Wo. 
ist Ihr Gerät zurück 800/400 KB 
31/2" MAC LW ab 880,— Gen. Mu- 
sician Interface macht aus Apple Il 
electron. Piano + Synth. Acryl- 
diskbox f. 50 Dsks, Schl. 42,- 5.25 
Diskreiniggset m. Fluid 26,— 
PYRAMID Computer, Am Galgen- 
berg 15, 7800 Freiburg, 

T. 0761/66843 CPM Ilc! 


Hard- und Software für Apple- 
Computer gesucht. Wer schreibt 
gute Software? Auch Gebrauchtes 
angenehm. Zahle Höchstpreise! 
Suche noch Leute, die nebenbei 
verdienen wollen. Zuschriften 
Chiffre P1005 


Umbau MAC von 128 K auf 
512 K mit Qualitätsmaterial. 
RAMS (150us) werden gesockelt — 
DM 848,— 

näheres: T. 06131/220372 


Epson Interfaceumbau 
f. AWorks DM 20. Mahr, Waldak- 
ker 71, 73 Esslingen 


Wer hilft beim Anschluß einer 
Triumpf-Adler Typenrad-Schreib- 
maschine (SE 1010) an den Apple 
II? Heinrich J. Pohl, Weinstr. 54, 
6749 Klingenmünster 


Peeker und Peeker-Sammel- 
disketten alle Ausgaben zu ver- 


kaufen 
Tel. 06371/50266 ab 18 Uhr 


Anzeigenschluß 
für Ausgabe 12/85 
ist am 25. 10. 85 
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Ja, ich möchte peeker abonnieren. 

Liefern Sie mir peeker ab Ausgabe ................. (1985 erscheinen 11 Ausgaben — 
1 Doppelnummer) zum Jahresbezugspreis von DM 72,- (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt., 
zzgl. DM 16,80 Versandspesen. 






V u: an en Dr. Alfred 
Verlag, Postfach 102869, 
teidelberg 1 innerhalb von 7 
widerrufen kann. Zur Frist- 
[ 3 de ice die nr Ab- 








Ich wünsche jährliche Berechnung durch: 


[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 


Leserservice | Bank / PschA 
un ach 102869 


Or sea Li 





Bankleitzahl Kto.-Nr. 


a Abo-Karte 





Datum Unterschrift 
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Bitte senden Sie mir gegen Rechnung folgende Bücher: 





Für Ihı re Unterlagen 
ı Folgende E Bücher bestellt: 











Versandbuchhandlung 
Postfach 1028698 
6900 Heidelberg 1 


Folgende 8 Dieketten 
. ze bestellt | 


Bitte senden Sie mir 
gegen Rechnung folgende Apple-Programme: 


Apple DOS 3.3, Begleitdiskette, DM 28,- 
Apple ProDOS, Band 1, Begleitdiskette, 
DM 28,— 

Apple ProDOS, Band 2, Begleitdiskette, 
DM 28,— 

Apple Assembler, Begleitdiskette, DM 28,- 
ProDOS-Editor 1.0, Programm, DM 98,- 
MMU 2.0, Programm, DM 98,— 

INPUT 2.0, Programm, DM 98,— 
Softbreaker 1.0, Programm, DM 48,— 
DB-Meister, Programm, DM 290,— 
Superplot, Programm, DM 48,- 
Superquick, Programm, DM 48,— 


Datum Unterschrift 


> Buch -Shop 












U 


[] Peeker-Sammeldiskette, einzeln 
Disk# _____, Disk# 
Disk# ______, Disk# 
Preis je Disk DM 28,- (einzeln) 


[] Peeker Sammeldiskette, 
im Fortsetzungsbezug 
ab Disk # ______ 
(Mindestbezug 6 Disketten) 
Preis je Disk DM 20,— 


[I CP/M ja [I CP/M nein 
I] Pascaljia DI Pascal nein 


UOUUUOUOUUDO 0 DD 


Datum Unterschrift 


3 Software -Karte 














Straße 


PLZ/Ort 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

7 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 





Datum 


Unterschrift 

Verlagshinweis: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 


Jahresende schriftlich gekündigt wird. 


Dr? bitte vollständig ausfüllen 


wa Buch-Sho 



















5 
7 
E 
E 
> 
AB 


Vorname, Name 


n 
x 
3 


Straße 


PLZ/Ort 





Telefon mit Vorwahl 


Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 


PLZ/Ort 


Telefon mit Vorwahl 


POSTKARTE 


peeker 
Leserservice 


Postfach 10 28 69 
6900 Heidelberg 1 


POSTKARTE 


peeker 
Versandbuchhandlung 


Postfach 10 28 69 


6900 Heidelberg 1 


POSTKARTE 


peeker 
Softwareabteilung 


Postfach 10 28 69 


6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Viab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Iic; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple lie 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0°- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple || Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48, — 
ISBN 3-7 785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple lie) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. N 
Gerätevoraussetzung: Apple lie mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 








PROdos 94 


ProDOS-Anpassung für 


Laufwerke mit 40 bıs 


160 Spuren 





von Horst Hanke und Hans-Georg Hüneke 


Das Disketten-Betriebssystem ProDOS ist 
ein leistungsstarkes DOS, das den Betrieb 
von Plattenspeichern bis 32 Megabyte zu- 
läßt. Leider ist jedoch mit der Originalver- 
sion 1.0.1 nur der Betrieb von 35-Spur- 
Laufwerken möglich. Hieraus ergibt sich 
umgerechnet eine Diskettenkapazität von 
280 Blocks (143K). Um nun den Besitzern 
von Laufwerken mit einer größeren Kapa- 
zität diesen Vorteil zugänglich zu machen, 
wird nachfolgend ein Patch-Programm be- 
schrieben, das den Benutzer in die Lage 
versetzt, den vorhandenen File PRODOS 
für den Betrieb bis zu 1280 Blocks (= 160 
Tracks) zu verändern. Außerdem wird 
auch der Filer dahingehend modifiziert, 
daß das Kopieren von 35-, 40- und 80- 
Track-Disketten sowie beliebiger Files 
möglich wird. Es können dann selbstver- 
ständlich auch Disketten der Formate 1 * 
35 Tracks bis 2 * 80 Tracks formatieren 
werden. 

Im folgenden werden nun Module vorge- 
stellt, die in der Lage sind, das Original- 
ProDOS 1.0.1 sowie den FILER 1.0.1 zu 
modifizieren. Wegen der Länge kann hier 
nur der Hexdump wiedergegeben werden. 
Die Zeilennummern beziehen sich auf den 
Quellcode für den Apple-Assembler (unter 
ProDOS), der auf der Peeker-Sammeldis- 
kette enthalten ist und nach ProDOS kon- 
vertiert werden kann. 


1. Modifizieren des ProDOS 1.0.1 
(640K-Diskdriver) 


Um das ProDOS für größere Disketten- 
Laufwerke anzupassen, ist es notwendig, 
dem Diskdriver zu ermöglichen, mehr als 
35 Spuren zu positionieren. Diese Modifi- 
kation läßt nun den Betrieb von max. 2 x 
80 Spuren (= 160 Spuren = 640K) zu. 
Der erweiterte Driver (Datei PRODOS) 
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wurde in einem Speicherbereich lauffähig 
gemacht, in dem normalerweise der RAM- 
Diskdriver installiert ist. Hieraus ergibt 
sich, daß der Betrieb größerer Disketten- 
Kapazitäten in diesem Fall auch einen 
Nachteil hat: Die RAM-Disk mußte geop- 
fert werden. Diese Maßnahme hat jedoch 
den Vorteil, daß mit den meisten Program- 
men keine Kompatibilitätsprobleme auftre- 
ten. Es wäre nämlich durchaus möglich, 
diese Erweiterung in den noch freien Teil 
der Language-Card (Bank 2) zu legen. 
Spätestens wenn der unter ProDOS lau- 
fende Apple-Assembler gestartet wird, 
zeigt sich jedoch, daß auch dieser von 
dem Bereich der Bank 2 Gebrauch macht. 
Der 640K-Diskdriver besteht im einzelnen 
aus vier mehr oder weniger unabhängig 
voneinander laufenden Assembler-Rou- 
tinen. 

— Die Hauptroutine (Zeile 42-89)* hat nur 
die Aufgabe der Kopfumschaltung in Ab- 
hängigkeit von der momentan verwende- 
ten Diskette. Dies bedeutet: Bei einer 
Konfiguration von 2 & 80 Spuren soll z.B. 
die Spur 136 positioniert werden. Da die- 
ser Wert größer als 79 Tracks ist, muß 
notwendigerweise eine Kopfumschaltung 
erfolgen. (Dies bezieht sich nur auf den 
Ehring-Controller oder Kompatible. Beim 
Erphi-Controller wird z.B. von Spur zu 
Spur der Kopf umgeschaltet, so daß gera- 


de Spurzahlen auf der einen Seite, unge- 
rade Spurzahlen auf der anderen Seite 
gelesen werden). Aus dem Bild 1 ist er- 
sichtlich, daß sich die Spur 56 sowie die 
Spur 136 physikalisch an der gleichen 
Stelle befinden. Um nun auf Track 136 zu 
positionieren, muß ein Wert von 80 
(Tracks) subtrahiert werden, was gleich- 
zeitig mit einer Kopfumschaltung zu ver- 
binden ist (Zeile 60-84). 


— Dieses Ergebnis wird jetzt der „MY- 
SEEK“-Routine (1,2) übergeben, die wie- 
derum die Aufgabe hat, den Schreib/Le- 
se-Kopf zu positionieren. Analog dazu 
verfährt man bei einer Konfiguration von 2 
* 40 Tracks, wobei jedoch anstelle von 80 
40 subtrahiert wird. 


— Damit auch ein Mischbetrieb zwischen 
verschiedenen Disketten (1 &* 35, 2 * 40, 
1 * 80 ) möglich wird, war es erforderlich 
mit Hilfe der Routine „RECOGNIZE“ (Zei- 
le 215-252) eine Parametertabelle mit den 
momentan aktiven Laufwerken anzulegen. 
Diese Tabelle belegt einen Bereich von 7 
Bytes, wobei jedes Byte einen Slot dar- 
stellt und jedes Halbbyte (Nibble) den 
Drive 1 oder 2 wiedergibt. Das Bild 2 zeigt 
nun, wie in einem Nibble die Drive-Typ- 
kennung von einem 40- oder 80-Track- 
Laufwerk aussieht. Bei jeder Fehlpositio- 
nierung, bedingt durch einen Disketten- 


* Zeilennummern beziehen sich auf Quelltext PRODOS,® (nur auf Sammeldiskette) 






U | 136 nn 
Bild 1. Zugriff auf eine doppelseitige Diskette (Ehring und Kompatible) 


Schreib/ Lese-Köpfe . _ 2 _ 
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wechsel, wird diese Tabelle (Zeile 189- 
214) aktualisiert. 

— Ausgehend von dem Inhalt dieser Tabel- 
le kann nun die „ADJUST“-Routine (165- 
188), die vor jedem Seek-Befehl (Zeile 58) 
aufgerufen wird, die jeweils richtigen Para- 
meter für das zur Zeit benutzte Laufwerk 
einstellen. 

Als wichtigen Hinweis sollte man beach- 
ten, daß beim Einlegen einer 35-Track- 
initialisierten Diskette in ein 80-Track- 
Laufwerk eine (hardwaremäßige) Um- 
schaltung auf 40-Spur-Betrieb erfolgen 
muß (48/96 TPI-Umschaltung). 















Drive 2=40 Drive 1=40 
Drive 2=40 Drive 1=80 


Drive 2=80 Drive 1=80 
Drive 2=80 Drive 1=40 


40-Track-Bit 
80-Track-Bit 


Bild 2. Nibble-Tabelle 


Eine Modifikation ist eigentlich nur aus 
dem Grunde notwendig, damit mehr als 35 
Spuren formatiert werden können. Außer- 
dem wird noch der Boot-Block verändert, 
um das Booten von nicht-apple-kompati- 
blen Disk-Controllern zu ermöglichen. 
Weiterhin wird beim Aufruf der beiden Me- 
nüpunkte „COPY AVOLUME“ und „FOR- 
MAT A VOLUME“ ein zusätzliches Menü 
eingebunden, das die verschiedenen For- 
matierungsformate zur Auswahl anbietet. 
Die Änderung des Boot-Blocks O ist an 
zwei Stellen notwendig: 

— Die Abfrage des Controller-Bytes $CnFF 
wird umgangen (Zeile 350-361)*. 

— Sollte der Disk-Controller (3) (Ehring 
oder baugleiche) am DIL-Schalter 4 auf 
doppelseitigen Betrieb geschaltet sein, 
muß die Boot-Software (Block 0) in der 
Lage sein, den Schreib/Lese-Kopf auf die 
richtige Diskettenseite umzuschalten (Zei- 
le 314-337). 


Als nächstes muß der Formatter-Disk 
driver erweitert werden, damit das Forma- 
tieren von 1 * 35 bis 2 * 80 Tracks 
ermöglicht wird. Um diese Erweiterung im 
Filer zu integrieren, war es notwendig, den 
Kopier-Puffer um IK (2 Blöcke) zu redu- 
zieren (Zeile 398-408). Gleichzeitig muß 
dieser Bereich in der „Globel-Page“ (4) 
vor Zugriffen durch das „MLI“ geschützt 
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werden (Zeile 388-397).Dies hatzurFolge, 
daß der Kopier-Puffer von 16K auf 15K 
gekürzt werden muß. Um dies zu verdeut- 
lichen, sind in dem Bild 3 der Original- 
Filer und der modifizierte Filer (NEW.- 
FILER) im Speicher dargestellt. 

Die Filer-Änderungen werden erst beim 
Start durch eine Verschieberoutine instal- 
liert (Zeile 291-313 und 362-387), die von 
der Speicherstelle $2000 aufgerufen wird. 
Ansonsten läßt sich der Filer in gewohnter 
Weise bedienen, nur mit der zusätzlichen 
Möglichkeit, unter „VOLUME COM- 
MANDS“ verschiedene Formatierungsfor- 
mate auswählen zu können (Zeile 48- 
109). 


Um die Patch-Files erzeugen zu können, 
muß eine Arbeitsdiskette erstellt werden, 
die die in Tabelle 1 gelisteten Files enthal- 
ten muß. 

Mit dem Aufruf „-SYSTEM.PATCH.1“ wird 
das Patch-Programm gestartet. Hierauf 
meldet sich ein Menü mit den folgenden 
Möglichkeiten: 


? - TUTOR 
F—-PATCH FILER 
P- PATCH PRODOS 
Q- QUIT 


@ Wählt man das „?“, wird eine Kurzbe- 
schreibung, ähnlich wie im Filer selbst, 
dargestellt. (Anm. d. Red.: Entgegen den 


FILER 
256 


Puffer 1: 
„COMPARE A 
VOLUME” 


Kopier-Puffer: 


wird verwendet bei 
Puffer 2: „COPY A VOLUME” 16K 


„COMPARE A 
VOLUME” 


24K 


Puffer für 
„COPY FILES” AK 





normalen Peeker-Gepflogenheiten wird 
dieses Tutorial in Anlehnung an die FILER- 
und CONVERT-Hilfsmenüs in englischer 
Sprache ausgegeben.) 

® Bei der Wahl von „F“ wird der Filer- 
Patch-Vorgang folgendermaßen durchge- 
führt: Als erstes wird vom Programm der 
Original-FILER 1.0.1 geladen. Nachfol- 
gend werden die modifizierenden Files 
FILER.1 sowie FILER.2 überlagernd dazu- 
geladen. Somit ist diese Modifikation ab- 
geschlossen und wird unter dem Namen 
NEW.FILER auf die Diskette zurück ge- 
schrieben. 

® Durch die Wahl des Punktes „P“, wird 
der PRODOS-Patch-Vorgang ausgeführt. 
Zuerst wird das Original-ProDOS 1.0.1, 
gefolgt von den modifizierenden Files 
PRODOS.1, PRODOS.2, PRODOS.3 und 
PRODOS.4, in den Speicher geladen. Da- 
mit ist auch dieser Patch abgeschlossen, 
und das neue ProDOS-System wird unter 
dem Namen NEW.PRODOS auf die Diskette 
zurückgeschrieben. 

®© Abschließend kann mit „Q“ das Patch- 
Programm beendet werden. 


In diesem Abschnitt wird gezeigt, wie man 
z.B. eine 160-Track-formatierte Boot-Dis- 
kette erstellt. 

Als erstes müssen die Files „NEW.PRO- 
DOS“ und „NEW.FILER“ mit den vorge- 
nannten Punkten „F" und „P“ des Patch- 
Programms erstellt werden (unter Angabe 


NEW. FILER 


ProDOS-Global-Page 
FILER-Erweiterungen 


Puffer 1: 

„COMPAREA 
VOLUME” 

Puffer 2: 

„COMPARE A 
VOLUME” 












(7,5K) Kopier-Puffer: 





wird verwendet bei 


„COPY A VOLUME" 


15K 
















24K 


FILER-Hauptprogramm: 


Puffer für 


„COPY FILES” ax 


Bild 3. Speicheraufteilung des Original-FILER und des neuen NEW.FILER 


* Zeilennummern beziehen sich auf Quelltext FILER.® (nur auf Sammeldiskette) 
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von „E“ für 160 Tracks). Durch Aufruf des Literaturhinweis 3. Test: 
neuen Filers mit dem Kommando „-NEW -SYSTEM.PATCH.1 
‚FILER“ kann nun eine leere Diskette (1) DOSSOURCE 3.3, LAZER MICRO 4. Sammeldisk: 
at SYSTEMS; 
formatiert werden, damit diese einen mo- PRODOS.O 
weg . (2) Beneatn Apple DOS von Don 
difizierten Boot-Block erhält. Als erstes a um Beret Leichter: FILER.O 
wird dann mit Hilfe des Filer-Kommandos ’ SYSTEM.PATCH.O 


„FILE COMMAND“ und „COPY FILES“ ah DER Zar Ya (Quelltexte für Apple-Assembler unter 


der File „NEW.PRODOS“ auf die neu for- n ProDOS) 

matierte Diskette mit dem Namen „PRO- 11) „PRe FroDOS für Aufsteiger von propos. 

DOS“, kopiert. Abschließend muß noch PRODOS.2 

von der ProDOS-Systemdiskette der File PRODOS.3 

„BASIC.SYSTEM“ auf diese Diskette ; PRODOS.4 

übertragen werden. Sollte diese Reihen- PADER EINER FILER.1 

folge (PRODOS als erster Eintrag indem 1.Zweck: FILER.2 

Directory) nicht eingehalten werden, wird Umstellung von ProDOS 1.0.1 auf SYSTEM.PATCH.1 

beim Booten sowie beim Aufruf durch das Laufwerke mit höherer Kapazität. (Maschinenprogramme) 
Strichkommando „-PRODOS“ die Fehler- 2. Konfiguration: 

meldung „RELOCATION/CONFIGURA- Apple II+ oder Ile; 

TION ERROR“ auf dem Bildschirm ausge- Ehring-Controller; 4 
geben. ProDOS 1.0.1. = 


Tabelle 1 $FF48: BB OB BO BO MB BO 22 90 $BCAB: 
$FF50: 20 19 FF 48 98 6A Bß 15 $BC48: 
Liste aller benötigter Files zur Erstellung der gepatchten $FF58: 6A BA 38 2A AB 68 30 GA $BC5ß: 
Files NEW.PRODOS und NEW.FILER. $FF6ß: 98 2A 2A 2A 2A 9D 48 FF $BC58: 
$FF68: DO ®D 98 D® F8 6A 38 2A $BC6ß: 
NAME TYPE BLOCKS $FF7ß: BA A8 68 1® EB 30 F3 69 $BC68: 
$BC79: 
BSAVE PRODOS.3, A$F800, L$0010 $BC78: 
$BC8P: CF 
$F800: A9 Pl 8D 17 FF A5 46 A6 $BC88: D2 AB 


; $BC99: AD 
F808: 47 SE 56 FB B 
$F8ß E Eß 05 B® 26 Sa = 


$BCAß: B5 
$BCAB: A® 
$BCBB: D3 
$BCB8: AB 
$BCCQ9: A® 
, $Bcc8: c3 
Kurzanleitung BSAVE FILER.1, A$BB00, L$0293 $BCDB: C7 cc 
l. Auf eine normale ProDOS-1.®.1-Diskette die oben genannten $BCD8: dD 
Dateien aufnehmen. $BBpPp: 4E 48 A5 1A C9 $BCEß: c3 
a) Mit Hilfe des KONVERT-Programms die Dateien von der $BB98: 68 69 68 C9 91 $BCEB: DA 
Peeker-Sammeldisk (DOS 3.3) übertragen; oder $BB1P: #2 FO D1 69 29 $BCFBß: CF 
b) die Dateien "PRODOS.®", "SYSTEM.PATCH.®" und "FILER.®" $BB18: 96 BB AD 99 C9 $BCF8: c4 
(als Quellcode auf Sammeldisk) mit dem Apple-Assembler $BB2P: 1® cö c9 Cc1 F$ $BD9P: Ad 
assemblieren; oder $BB28: FO 20 C9 C3 F@ $BD98: B8 
c) die Hexdumps der Programme eingeben und wie angegeben $BB39: F® 2C C9 C5 FÖ $BD1ß: AC 
abspeichern. $BB38: F® 03 AC 16 BB $BD18: Ad 
. Gegebenfalls mit dem FILER die Dateien "PRODOS" und $BB49: 92 BB A9 23 8D $BD29: Ad 
"FILER" (jeweils nur 1.9.1) ebenfalls auf Diskette $BB48: BB A9 28 8D $BD28: AD 
kopieren. i $BB5ß: BB A9 28 8D $BD39: cı 
. Mit "-SYSTEM.PATCH.1" das Patch-Programm aufrufen und mit $BB58: 79 4C $BD38: c2 
den Optionen "F" und "P" die Dateien "NEW.PRODOS" und $BB6P: BD 8D $BDAp: ca 
“NEW.FILER" erzeugen. $BB68: 50 8D $BD48: c3 
. Mit "-NEW.FILER'" den gepatchten Filer aufrufen und eine $BB79: ac 77 $BD5$: DA 
neue Diskette unter Angabe der Laufwerkskapazität $BB78: 8D 46 $BD58: BC 
formatieren. $BB8P: CA FB $BD6EP: dD 
. Die Datei "NEW.PRODOS" mit dem Namen "PRODOS'" auf diese $BB88: 2E 46 $BD68: 99 
neu formatierte Diskette kopieren. $BB9P: 4E 69 $BD7: 69 
. Gegebenenfalls auch die Dateien "BASIC.SYSTEM" und $BB98: BB 8D $BD78: 19 48 
"NEW.FILER" übertragen. $BBAP: BB FQ $BD8P: CO 8D 
$BBAB: c8 DY $BD88: 60 99 
$BBBP: 6B AA $BD9ß: 76 BD 
$BBB8: AA AA 
$BBCBp: AA AA 
$BBC8: AA AA BSAVE FILER.2, A$8693, L$00BO 
$BBDP: AA AA 
$BBD8: BD AA $8693: AB Hp 
$BBE®: AB A® $8698: 99 0 
BSAVE PRODOS.1, A$FEBE, S$0042 BSAVE PRODOS.2, A$FF00, L$0078 $BBE8: AB AB $86AB: 99 
$BBFP: AB AB $86AB: 86 
$FEBE: $FFOß: 20 BC F9 AD $BBF8: Ad AB $86Bß: c8 
$FECP: 68 C9 50 Bß DE 48 S$FFOS: F9 CE 17 FF $BCHp: DD AA $86B8: 87 99 
$FECB: 8D D® FE $FF1B: CE 6A FB $BC98: D3 CB $86CQ: 
$FEDß: Eß FE A4 $FF18: 43 48 $BC1P: D4 DA $86C8: 
$FEDBS: 89 CO ED $FF2B: 4A AA $BC18: c6 C9 $86Dp: 
$FEEB: 69 $FF28: 6A 6A $BC29: CF CE $86D8: 
$FEEBS: FB CD $FF3ß: 19 FF $BC28: ÖD AA $86Eß: 
$FEF®: 60 28 $FF38: 88 DO $BC39: AB AB $86E8: 
$FEFB: 20 59 $FFAß: FE 69 $BC38: AB AB $86FB: 


BESRBRESS 


*PRODOS SYS 
PRODOS.1 BIN 
PRODOS.2 BIN 
PRODOS.3 BIN 
PRODOS.4 BIN 

#FILER SYS 
FILER.1 BIN 
FILER.2 BIN 
SYSTEM.PATCH.1 BIN 


[0 


KEBRERESS 


oa 


BSAVE PRODOS.4, A$2900, L$0078 


SRBEERSERBEERS 


$2900: AB 78 B9 BB 2C 99 BO FF 
$2908: 88 C® FF D® F5 69 
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25 
: 8D 
: A9 
: 25 
: IP 
: 20 
: CE 
: A® 
: CF 
: 68 09 99 


BSAVE SYSTEM.PATCH.1, A$0803, 
L$099B 


$0803: 
$p8H8: 
$081P: 
$o818: 
$0829: 
$0828: 
$0839: 
$0838: 
$0849: 
$0848: 
$0859: 
$0858: 
$o86P: 
$0868: 
$0879: 
$0878: 
$0880: 
$0888: 
$0899: 
$9898: 
$o8AP: 
$P8AB: 
$o8BP: 
$08B8: 
$oscPh: 
$98c8: 
$o8DPp: 
$P8D8: 
$O8EP: 
$08ES: 
$P8Fß: 
$O8F8: 
$P9pp: 
$p998: 
$091P: 
$0918: 
$9929: 
$0928: 
$0939: 
$0938: 
$0949: 
$0948: 
$0959: 
$0958: 
$P96P: 
$0968: 
$0979: 
$0978: 
$0989: 
$0988: 
$999p: 
$0998: 
$o9AP: 
$O9YAB: 
$O9BP: 
$O9B8: 
$pScBp: 
$p9c8: 
$09Dp: 
$P9D8: 
$P9EP: 
$O9ES: 


$O9FP: 
$O9F8: 
$pApp: 
$oAQB: 
$DA1P: 
$OA18: 


$PA2B: 
$DA28: 
$pA3B: 
$pA38: 
$DAAB: 
$DA48: 


$pA5P: 
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87 
92 
20 
79 
8D 
ac 
cl 
cc 
c4 


8D Pl 
20 A9 
8D 24 
A9 BD 
CA 29 
nB 29 
c2 cc 
CF Cl 
CF D3 


20 2F FB 


FC 
3F 
59 
AE 
ac 


20 


4D 
28 
BD 
D® 
08 
FB 


20 20 29 


54 
52 
29 
29 
29 
BD 
29 


48 





20 20 49 


: 29 
ı 44 
: 48 
: 20 
: 20 
ı 47 
: 59 
: 4F 
: 45 
: 2E 
: 4E 
: 45 
: ®D 
556 
: 20 
: 4E 
: 4F 
: 29 
: 4E 
:ı 44 
ı 43 
ı 44 
: 56 
: 4F 
: 30 
: ®D 
ı 43 
ı 44 
: 56 
: 47 
: 20 
=. 
: 38 
: 41 
: 29 
: 2D 
: Sc 
: 20 
::2D 
ı 45 
: 53 
: 20 
ı 45 
: 4F 


: 4E 


54 
4AF 
2E 
50 
54 
49 
4C 
53 
52 
39 
44 
53 
29 
54 
4E 
45 
53 
29 
45 
4F 
45 
49 
45 
29 
29 
29 
4l 
49 
45 
BD 
2A 
29 
39 
43 


48 
53 
dD 
4l 
48 
4E 
45 
2C 
53 
2E 
29 
29 
29 
2D 
41 
57 
27 
54 


20 46 4F 
20 59 52 
50 41 54 
20 29 49 
43 48 45 
20 4F 
ac 20 
59 52 
20 29 
4F 4E 
2C 29 
45 
4E 
55 
ac 
44 
52 
OD 
20 
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Programmierung unter 
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Viele Apple-Il-Systeme sind mit der Z80- 
Softcard nachgerüstet oder haben den 
Z80-Prozessor (vor allem bei neueren 
Nachbauten) bereits auf dem Motherboard 
integriert. Dieser Prozessor ist Vorausset- 
zung dafür, daß das CP/M-Betriebssystem 
beim Apple II lauffähig ist. Im folgenden 
liegt stets die CP/M-Version 2.20 (56K) 
zugrunde. (Aber auch die Version 2.23 
(60K) kann für die Testbeispiele verwen- 
det werden.) Über dieses Betriebssystem 
und das hierunter laufende MBASIC ist im 
Peeker schon berichtet worden. Der vor- 
liegende Artikel möchte den Leser nun mit 
der Assembler-Programmierung des Z80- 
Prozessors unter CP/M vertraut machen. 
Beabsichtigt ist dabei kein allgemeiner As- 
sembler-Kurs, sondern eine schnelle Ein- 
führung für solche Leser, die schon 
Kenntnisse in irgendeiner Assembler- 
Sprache besitzen; für Apple-Besitzer wird 
das der 6502-Assembler sein, für den U. 
Stiehl in Peeker, Heft 7/85 eine Einfüh- 
rung gegeben hat. Dieser Prozessor wird 
hier oft zu Vergleichszwecken herange- 
zogen. 

Neben der Beschreibung der Register- 
struktur, einem Überblick (mit Beispielen) 
über die Z80-Befehle und Adressierungs- 
arten werden auch Übersetzer und De- 
bugger beschrieben. Danach werden die 
System-Routinen (und deren Ansteue- 
rung) für Console- und File-/O darge- 
stellt. Nach Durcharbeiten dieses Aufsat- 
zes wird der Leser bereits über eine gut 
bestückte Makro-Bibliothek verfügen, die 
die Programmierung erheblich vereinfacht. 






[atarku) sh 










Vordergrund -Register 


ee 








ee \ _(Indexregister) 
a | (Indexregister) = 


© (Befehlszähler) 


Zuvor einige Bemerkungen zum leidigen 
Problem der Z80- und 8080-Normierun- 
gen. Der 8080-Prozessor hat einen Be- 
fehlssatz, der eine Untermenge des Z80- 
Befehlsvorrats darstellt, d.h. der Z80-Pro- 
zessor kann alle 8080-Befehle ausführen, 
enthält aber noch weitere Befehle. Selbst 
bei gemeinsamen Befehlen sind beim Z80 
oft noch weitergehende Adressierungsar- 
ten möglich. Das CP/M-Betriebssystem 
samt Assembler und Debugger (ASM.- 
COM/DDT.COM) ist nun in 8080-Normie- 
rung erstellt worden. Fazit: die exklusiven 
Z80-Befehle sind weder beim Assembler 
noch beim Debugger direkt verfügbar. 
Man kann sie höchstens als Hex-Bytes 
eingeben — was natürlich der Lesbarkeit 
nicht gerade zuträglich ist. Abhilfe schaffen 
hier nur ein Z80-Assembler wie z.B. M80/ 
MACRO80 und ein Z80-Debugger wie 
ZSID oder DDTZ. Ein weiteres Problem 
kommt hinzu: Selbst die beiden Prozesso- 
ren gemeinsamen Befehle werden unter- 
schiedlich geschrieben, d.h. besitzen sehr 
verschiedene Mnemonics. Man ist bei der 
Standard-Software fast gezwungen, auch 
noch 8080-Assembler zu lernen. Dieser 
Weg soll in diesem Artikel nicht beschrit- 
ten werden. Grundlage ist stets die Z80- 
Normierung. Minimalvoraussetzung für die 
sinnvolle Nutzung dieses Artikels ist des- 
halb ein Z80-Assembler. Empfehlenswert 
ist in jedem Fall ein Z30-Debugger. 





1. Die Z80-Registerstruktur 


In Abb. 1 ist der Registersatz des Z80- 
Prozessors dargestellt. Die Abbildung ent- 
hält die Registerbezeichnungen und die 
Registerlänge in Bits. Wer als gestandener 
6502-Programmierer (gewöhnt an 6 Regi- 
ster) zum ersten Mal diese Vielfalt (je nach 
Zählweise 11-20 Register) sieht, sollte 
nicht verzweifeln oder gar dieses Heft zur 
Seite legen. | 

Die rechte Bildhälfte (Hintergrund-Regi- 
ster/Cache-Register) erledigt sich sehr 
schnell. Außerdem muß man in der Ein- 
stiegsphase ja nicht gleich mit allen Regi- 
stern simultan arbeiten. Im Laufe der Zeit 
lernt man dann automatisch den Komfort 
einer größeren Registerzahl zu schätzen. 
Beim Z80 wird das A-Register auch als 
Akkumulator bezeichnet und hat aufgrund 
spezieller Adressierungsarten eine Son- 
derstellung. Die allgemeinen Register B- 
C-D-E-H-L haben wie das A-Register eine 
Länge von 8 Bits, lassen sich aber paar- 
weise (wie aus Abb. 1 ersichtlich) zu 16- 
Bit-Registern zusammenschalten. In der 
Assembler-Programmierung werden dann 
die Registerbezeichnungen BC-DE-HL 
benutzt. Das F-Register des Z80 ent- 
spricht von der Aufgabe her dem P-Regi- 
ster des 6502 — enthält also die Status- 
Bits. Die Bedeutung der einzelnen Bits (Bit 
5 und 3 werden nicht benutzt) ist in Abb. 2 
wiedergegeben. | 

Die Indexregister IX und IY ähneln dem X- 
und Y-Register beim 6502. Sie besitzen 
jedoch hier eine Länge von 16 Bits. Das 


 Hintergrund-Register 


-1F (Flags) & a TER 


a - -Reg ter. en . 
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gleiche gilt im Vergleich für das SP-Regi- 
ster (Stackpointer/Stapelzeiger beim Z80) 
und das S-Register des 6502. Der Be- 
fehlszähler (PC-Register) darf bei beiden 
Prozessoren als funktionsgleich ange- 
nommen werden. Bleiben noch die Hinter- 
grund-Register in Abb. 1 zu erläutern. 
Sinn dieser Register ist es, eine schnelle 
Rettung der Vordergrund-Register (ohne 
Strich ’) zu ermöglichen. Diese Hinter- 
grund-Register und ebenso die Indexregi- 
ster sind beim 8080-Prozessor nicht vor- 
handen. Vorteil: Das CP/M-Betriebssy- 
stem benutzt diese Register nicht. Man 
kann hier sehr schön auch über längere 
Zeit Registerinhalte retten. 


2. Programmierung der 
Hintergrund-Register 


Für diesen Registersatz AF’ und BC’-DE’- 
HL’ gibt es nur 2 Operationstypen: 

a) Austauschen („exchange“) von A mit A’ 
und gleichzeitig F mit F’—- in Z80-Assem- 
bler: 


EX AF,AF’ 


b) Austauschen der 16-Bit-Register BC 
mit BC’, DE mit DE’, HL mit HL’ gleichzei- 
tig — Assembler-Befehl: 


EXX 


Ein zweimaliges Austauschen mit EX bzw. 
EXX stellt wieder den Originalzustand her. 
Für den EX-Befehl werden das A-Register 
und das F-Register als 16-Bit-Kombination 
betrachtet (ebenso für die PUSH/POP-Be- 
fehle), es handelt sich hier aber um kein 
echtes 16-Bit-Register. 


3. Die Stack-Bearbeitung 


Der Stapelzeiger hat 16 Bits Länge, kann 
also theoretisch einen 64K-Stack-Bereich 
verwalten. Beim 6502 sind nur 256 Bytes 
‚direkt verfügbar. Während dort der Stack 
byte-weise bearbeitet wird, liegt beim Z80 
eine wortweise (16 Bits) Organisation vor. 
Der Befehl 


PUSH reg (reg = AF-BC-DE-HL-IX-IY) 
schiebt 2 Bytes des jeweiligen 16-Bit-Re- 
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gisters auf den Stack (und erniedrigt den 
Stapelzeiger sinngemäß um 2), der Befehl 


POP reg 


bewerkstelligt den umgekehrten Vorgang. 
Zweiter Unterschied zum 6502: Beim Z80 
kann der Stack-Bereich an beliebiger Stel- 
le im Speicher definiert werden — da ja SP 
insgesamt 64K adressieren kann. Beim 
Start eines Programms zeigt SP stets auf 
den CP/M-System-Stack, der laut CP/M- 
Beschreibung dem Benutzer einschließ- 
lich Rücksprungadresse ins Betriebssy- 
stem insgesamt 8 freie 16-Bit-Stack-Plät- 
ze zur Verfügung stellt. Wenn man im ei- 
genen Programm nur eine sehr geringe 


Tiefe in der Unterprogrammschachtelung 


hat, wird man hiermit auskommen — zumal 
alle Aufrufe für I/O-Bearbeitung über ei- 
nen „local stack“ innerhalb des System- 
bereichs abgewickelt werden. Unter Um- 
ständen muß man sich allerdings einen 
eigenen Stack definieren. Hierzu lädt man 
beim Programmstart das SP-Register mit 
der Endadresse des reservierten Be- 
reichs: 


START: LD SP,STACK 


DS 32 
STACK EQU $-1 


; 16 Einträge 


Der LD-Befehl (= Load) lädt den Stack- 
pointer mit der Endadresse des Stack- 
Bereichs, der hier eine Länge von 32 
Bytes = 16 Einträge hat (DS = Define 
Storage). (6502-Kenner: Irgendein Pro- 
blem mit der LD-Zeile? Noch etwas Ge- 
duld!) Das $-Zeichen stellt den momenta- 
nen Stand des Adreßzählers dar, zeigt al- 
so auf das 33. Byte. 


4. Beenden eines Programms 


Hat man den System-Stack benutzt, so 
reicht (ähnlich wie unter DOS) ein 
RET(urn) zum Beenden eines Programms. 
Genauso gut, aber im Fall eines eigenen 
Stacks praktisch zwingend ist es, mit „JP 
0“ einen CP/M-Warmstart auszuführen 
(wie JMP $3D0O unter DOS). 


5. Die Adressierungsarten 


Der in Z80-Assembler-Programmen wohl 
am häufigsten vorkommende Befehl ist 
der LD-Befehl = Lade-Befehl. Grund: Er 
vereinigt in sich alle 6502-Transferfunktio- 
nen wie LDA/LDX/LDY, STA/STX/STY, 
TXA/TAX, TYA/TYA, usw... Die beim Z80 
vorkommenden Adressierungstypen sol- 
len deshalb an diesem Befehl erläutert 
werden — und zwar ausgehend von der 
Programmier-Praxis. Eine wichtige Nor- 
mierung vorweg: Die Transfer-Richtung ist 
beim LD-Befehl durch LD Ziel,Quelle ge- 
geben. Sinngemäß gilt diese Normierung 
auch für alle anderen Befehle. 


5.1. Laden von Konstanten (8/16 Bits) 
in Register („immediate“) 


Mit 
LD A,27h 


wird A mit hexadezimal 27 geladen. Statt A 
kann natürlich jedes andere 8-Bit-Register 
A-L verwendet werden. Im Z80-Assem- 
bler werden Hex-Zahlen durch Anhängen 
von „h“ (oder „H“) gekennzeichnet (ent- 
spricht also dem vorangestellten #$ beim 
6502). Um Verwechslungen mit Adreßbe- 
zeichnungen zu vermeiden, wird z.B. die 
Hex-Zahl FF als OFFh notiert. Das Voran- 
stellen von „DO“ verhindert, daß der As- 
sembler FF oder FFh als Namen einer 
Speicherzelle interpretiert. 

Konstanten mit 16 Bits Länge können in 
BC-DE-HL-SP-IX-IY geladen werden. 
Beispiel: | 


LD HL,OFF3Ch 
LD IX,73Ah ‚ = 073Ah 


5.2. Register 1 nach Register 2 schieben 
Beispiel: 


LD A,H 


Hier wird H nach A transferiert — und nicht 
umgekehrt. (Haben Sie sich schon daran 
gewöhnt? Nebenbei bemerkt entspricht 
diese Definitionsrichtung auch derjenigen 
beim CP/M-Betriebssystem. Denken Sie 
an PIP oder REN.) Jede andere Kombina- 
tion von 8-Bit-Registern ist möglich. 
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Die 16-Bit-Register kann man nicht auf 
diese Weise transferieren. Ausnahme: das 
SP-Register kann von HL-IX-IY geladen 
werden. Korrekt ist also 


LD SP,HL 
LD SP,IX ; oder IY 


Es existiert aber kein Befehl, der etwa BC 
nach HL lädt. Hierfür könnte man aber z.B. 
die folgenden Anweisungen benutzen: 


PUSH BC 
POP HL 
oder 

LD H,B 
LDLC 


Speziell für die Register DE und HL kann 
man auch den EX(change)-Befehl aus- 
nutzen: 


EX DE,HL 


Hierdurch werden die Registerinhalte aus- 
getauscht (was nicht ganz der gestellten 
Aufgabe entspricht, aber oft sehr nützlich 
ist). Andere Kombinationen der Vorder- 
grund-Register sind bei EX nicht möglich. 


5.3. Transfer Register > Speicher und 


umgekehrt 


Hier gibt es eine ganze Reihe von Alterna- 
tiven. ' 


5.3.1. Absolute Adressierung 


Nach dem Schema LD (Adresse),A wird 
das A-Register an die angegebene Adres- 
se transferiert. (Umgekehrter Fall: LD 
A,(Adresse) ). Für die anderen 8-Bit-Regi- 
ster existieren keine entsprechenden Be- 
fehle. Beispiel: 


LD (ZELLE1),A ; schiebt A nach ZELLE1 


Alle 6502-Anwender werden spätestens 
jetzt nachdenklich (oder schon oben bei 
dem Stack-Beispiel?). Beim 6502 bedeu- 
tet das Einklammern der Adresse nämlich 
‚eine indirekte Adressierung, d.h. A würde 
nicht nach ZELLE1, sondern (zumindest 
theoretisch) in die Speicherzelle transfe- 
riert, auf die ZELLE1 zeigt. Anders beim 
Z80: Das’ Einklammern „(ZELLE1)“ ist 
gleichbedeutend mit „Inhalt von ZELLET”. 
Ohne Klammerung bedeutet „ZELLE1“ 
nunmehr „Adresse von ZELLE1“. (Beim 
6502 wird dieser Fall durch Voranstellen 
von # oder / behandelt.) Hierbei handelt 
es sich um eine Immediate-Adressierung, 
da „ZELLE1“ vom Assembler ja einen 
(16-Bit-)Wert zugeordnet bekommt. 


Bei den 16-Bit-Registern hat man mehr 
Möglichkeiten bei der Registerauswahl. 
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Der Formalismus ist hier LD (Adresse),r16 
bzw. LD r16,(Adresse) (mit r16 = BC-DE- 
HL-SP-IX-IY). Vergleichen Sie jetzt noch 
einmal das Beispiel bei der Stack-Bearbei- 
tung mit LD SP,STACK. Hier wird die 
Adresse (!) von STACK nach SP geladen. 


5.3.2. Indirekte Adressierung (mit Zeigern) 


Sofort ein Beispiel: Hat das Register HL 
den Inhalt 0179h, so bewirkt der Befehl 


LD A,(HL) 


daß der Inhalt der Speicherzelle 0179h 
nach A transportiert wird. HL enthält also 
den Adreßzeiger. Bei Registern bedeutet 
also (...) tatsächlich indirekte Adressierung 
(ein wenig verwirrend?). Das Beispiel ent- 
spricht etwa dem 6502-Fall „LDA (ZEI- 
GER),X“, wenn die Zellen ZEIGER/ZEI- 
GER+1 die Inhalte $79, $01 haben und X 
mit O geladen ist. 

Die Indexregister IX und IY können eben- 
falls als Zeiger verwendet werden (mit 
Offset 0, vgl. 5.3.3). Als Zeiger können 
beim Z80 auch die Register BC und DE 
dienen, sofern das Ziel oder die Quelle 
das A-Register ist. Mit 


LD (BC),A 


wird der Inhalt von A nach der Zelle trans- 
feriert, auf die BC zeigt. Für alle anderen 
8-Bit-Register dürfen nur HL-IX-IY als Zei- 
ger verwendet werden. 

Ein indirektes Laden von 16-Bit-Werten (2 
Speicher-Bytes) etwa nach BC (vom Typ 
„LD BC,(HL)“) ist prinzipiell nicht möglich 
—- muß also in 2 Transfers (je ein Byte) 
aufgelöst werden. Ausnahme ist die Ver- 
wendung von SP im Rahmen eines EX- 
Befehls. Die Anweisung 


EX (SP),HL 


tauscht HL mit dem Speicherplatz, auf den 
SP zeigt, aus. Statt HL sind wiederum 
auch IX-IY möglich. 


5.3.3 Indizierte Adressierung (mit IX/IY- 
Register) 


Die Indexregister IX und IY lassen sich 
nicht direkt mit dem X- und Y-Register des 
6502 vergleichen — eher stellen sie einen 
Ersatz für die Zero-Page-Adressierung 
dar. Die Befehlsfolge 


LD 1X,200h 
LD A,‚(IX) 


lädt den Inhalt der Speicherzelle 0200h 
nach A. Damit liegt praktisch die indirekte 
Adressierung wie unter 5.3.2 beschrieben 
vor. Von der Ausführungsgeschwindigkeit 


her sind in jedem Fall die Register BC-DE 
(sofern zulässig) und HL vorzuziehen (vgl. 
die Operationstabellen im Anhang)! In- 


 teressant werden die Indexregister erst 


durch die Möglichkeit, noch Offsets ein- 
bauen zu können. Die formale Schreibwei- 
se lautet (für das Beispiel oben) LD 
A‚,(Ix+d). Will man etwa den Inhalt von 
0210h nach A laden, so verfährt man wie 
folgt: 


LD IX,200h 
LD A,(IX+10h) 


Der Offset 10h wird vor der Ausführung 
des 2. Befehls zu IX addiert (intern, ohne 
IX zu verändern) und adressiert somit die 
Zelle 0210h. Das gleiche Resultat erzielt 
man aber auch mit dem einzigen Befehl 
LD A,(210h). Wozu also das ganze? Neh- 
men wir an, 0200h ist die Anfangsadresse 
einer Tabelle, die im folgenden intensiv 
bearbeitet wird. Mit LD IX,200h setzt man 
das Indexregister auf den Tabellenanfang. 
Von nun an braucht man nur noch mit den 
relativen Adressen (den Offsets) zu arbei- 
ten — Beispiel: 


LD IX,TAB ; Adresse (!) von TAB 
LD A,‚(IX+5) 

LD B,(IX+27) 

LD C,(IX+118) 


Wird die eigentliche Verarbeitung (ab Zeile 
2) als Unterprogramm geschrieben, so ist 
man in der Lage, durch Umladen von IX 
mehrere Tabellen auf die gleiche Art und 
Weise zu bearbeiten. Statt IX kann überall 
auch IY verwendet werden. Der Offset darf 
Werte zwischen 0 und 255 annehmen. 
Transferiert man Elemente einer Tabelle 1 
in eine andere Tabelle 2, so kann IX die 
Startadresse von Tabelle 1, IY die von 
Tabelle 2 enthalten: 


LD IX,TAB1 

LD IY,TAB2 

LD A‚,(IX+17) 

LD (IY+32),A ; TAB1(17) — TAB2(32) 
LD A,(IX+99) 

LD (IY+33),A ; TAB1(99) — TAB2(33) 


6502-Kenner werden bei der Aufzählung 
der Adressierungsarten die echte Zero- 
Page-Adressierung vermißt haben. Eine 
solche existiert beim Z80 nicht. (Eine ge- 
wisse Ausnahme bildet der hier nicht be- 
handelte Interrupt-Befehl RST.) 


6. Arbeiten mit Z80-Debuggern 


Jetzt wird es ernst. Die bis hierhin graue 
Theorie soll am Rechner verifiziert wer- 
den. Vielleicht hatten Sie schon die Idee, 
die vorgestellten Assembler-Zeilen einzu- 
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tippen und auszuprobieren. Genau darum 


geht es in diesem Abschnitt. Den einfach- 
sten Zugang bieten Debugger wie DDTZ 
oder ZSID (die mit DDT in der Bedienung 
praktisch übereinstimmen). Hiermit ist 
man in der Lage, Programme schrittweise 
auszuführen und zu überwachen (ähnlich 
wie beim alten 6502-Monitor mit STEP/ 
TRACE-Betrieb bzw. dem exzellenten 
BUGBYTER, der ja auch unter ProDOS 
verfügbar ist). Die nachfolgenden Details 
gelten explizit für ZSID. 


6.1. Eingabe von Befehlszeilen 


Nach dem Start des Debuggers geben Sie 
A (wie „Assemblieren“) und eine Adresse 
ein. Vorschlag: A100. (Auf die Speicher- 
verwaltung und die freien Bereiche kom- 
men wir später zu sprechen.) Im Bild er- 
scheint jeweils links der aktuelle Adreß- 
zähler. Man gibt nun etwa die obigen As- 
sembler-Zeilen ein. Dabei müssen Sie alle 
symbolischen Namen (TAB1, TAB2., ...) 
durch feste Adressen ersetzen. Wählen 
Sie hierfür glatte Adreßwerte in der 
Größenordnung 1000h, 1100h, ... Eine 
Leerzeile beendet die Eingabe. 


6.2. Kontrolle der Befehlszeilen 


Das Gegenstück zum Assemblieren ist 
das Disassemblieren. Wie beim 6502-Mo- 
nitor ist hierfür „L“ das Schlüsselzeichen. 
Geben Sie L100 ein und kontrollieren Sie 
Ihre ersten Z80-Befehle. 


6.3. Registerinhalte ein-/ausgeben 


Der Formalismus ist Xreg<Return>. Da- 
bei ist „reg“ die Registerbezeichnung in 
abgekürzter Form: P(C), (IX, (MY, B(C©), 
D(E), H(L), A, ... — der eingeklammerte 
Buchstabe entfällt. Der jeweilige Register- 
inhalt wird angezeigt, man kann nun den 
gewünschten Wert eingeben. Mit <Re- 
turn> übernimmt man den alten Wert. Mit 
X<Return> erhält man alle Register auf 
einen Blick. Die Status-Bits werden mit 
Xs<Return> abgerufen/eingegeben. Da- 
bei ist für s zu setzen: C = Carry, M = 
Sign-Flag, Z = Zero, E = Parity/Overflow 
‚und | = Half-Carry. Das N-Flag wird nicht 
separat behandelt. 


6.4. Eingabe /Ausgabe von Daten 
oder einzelnen Bytes 


mit Dadr <Return> bzw. Dadri,adr2 
<Return> lassen sich Hex-Dumps ausge- 
ben. Eingabe einzelner Bytes geht wie 
folgt: Sadr <Return> (S = Substitute). 
Angezeigt wird die laufende Adresse (be- 
ginnend ab „adr“) und der alte Speicher- 
inhalt. Danach geben Sie das neue Byte 
ein. Dieses Frage- und Antwort-Spiel wie- 
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derholt sich solange, bis ein Punkt als 
Ende-Kriterium eingegeben wird. 


6.5. Programmstart/Haltepunkte 


Geben sie beim Aufruf des Debuggers 
sofort einen File-Namen an (Beispiel: 
ZSID TEST.COM), so wird das entspre- 
chende Programm in den Speicher gela- 
den. Geben Sie nun als erstes (im Bei- 
spiel) ITEST.COM ein. Hiermit wird der 
File-Name TEST.COM als Workfile festge- 
legt. Ist nämlich während des Testbetriebs 
das Programm zerstört worden, so läßt es 
sich nunmehr mit R<Return> neu laden. 
Mit Gadr <Return> oder G <Return> 
wird das Testprogramm ab adr oder beim 
PC-Stand (= 0100h nach dem Laden) ge- 
startet. Soll das Programm bei bestimmten 
Haltepunkten hp1, hp2, ... stoppen, so gibt 
man Gadr,hp1,hp2,...<Return> oder 
G,hp1,hp2,...<Return> ein. Die Programm- 
ausführung wird unterbrochen, sobald eine 
der Teststopp-Adressen hp1, hp2, ... er- 
reicht ist. 


6.6. TRACE-Betrieb 


Die Anweisung T <Return> (= „TRACE“) 
führt jeweils einen Befehl aus. Angezeigt 
werden alle Registerinhalte vor (!) der Be- 
fehlsausführung, sowie der ausgeführte 
Befehl. Wie unter 6.3 beschrieben, kann 
man jetzt die aktuellen Registerinhalte in- 
spizieren. Einfacher ist es meist, mit 
T(RACE) fortzufahren und die neuen Regi- 
sterinhalte im nächsten Schritt zu sehen. 
Durch T20 <Return> können Sie bei- 
spielsweise 20 Befehle ohne Uhnterbre- 
chung durchlaufen und bekommen fortlau- 
fend alle Register angezeigt. 

Falls der Leser noch keine Erfahrungen 
mit Debuggern hat, könnten sich die 
„sample sessions“ mit DDT in der CP/M- 
Beschreibung als sehr nützlich erweisen. 
In jedem Fall ist ein gewisses Training mit 
einem Z80-Debugger sehr empfehlens- 
wert. 


7. Spezielle Z80-Befehle 


Nach den Beispielen zur Adressierung 
und möglicherweise ersten Testerfahrun- 
gen nun ein Blick auf die Operationsta- 
bellen im Anhang. In der 1. Gruppe sind 
Befehle aufgeführt, die von der Struktur 
her 16-Bit-Befehle sind. Danach folgen die 
Verzweigungsbefehle. In Gruppe 3 sind 
die 8-Bit-Befehle dargestellt. Der LD-Be- 
fehl und einige andere tauchen naturge- 
mäß in der 8- und 16-Bit-Gruppe auf. Die 
Tabellen zeigen, daß der Z80-Prozessor 
Befehle mit einer Länge zwischen 1 und 4 
Bytes kennt. Aus Gründen des Aufwands 
kann nur ein Teil der Operationen ausführ- 
licher besprochen werden. 


7.1. ADD/SUB und ADC/SBC 


Im Gegensatz zum 6502 existieren hier 
mit ADD und SUB auch Befehle, die bei 
der Ausführung ein evtl. gesetztes Carry- 
Bit nicht berücksichtigen. Beide Typen von 
Operationen setzen aber das C-Flag nach 
Ausführung entsprechend dem Ergebnis. 
Einfache Additionen (OP1) + (OP2) > 
(OP3) sehen aus, wie in Abb. 3 wiederge- 
geben. 








Die 16-Bit-Addition läßt sich natürlich auch 
in 2 & 8 zerlegen. Am Beispiel ist zu 
erkennen, daß HL die Rolle eines 16-Bit- 
Akkumulators hat. Für Subtraktionen geht 
man analog vor. Ein SUB existiert für 16- 
Bit-Subtraktion nicht — nur SBC. 


7.2. INC und DEC 


Bei den 8-Bit-Operanden ist die Funktion 
von INC/DEC wie beim 6502. Wichtig bei 
16-Bit-Operanden ist aber, daß die Flags 
unbeeinflußt bleiben. Steht HL etwa auf 1, 
so ist nach Ausführung von DEC HL das 
Z-Flag nicht (!) gesetzt. Zum Test auf O 
muß vielmehr ein CP-(Compare-)Befehl 
verwendet werden. 


7.3. DAA 


Beim 6502 ist man gewöhnt, durch SED/ 
CLD die BCD-Arithmetik zu aktivieren 
oder auszuschalten. Beim Z80-Prozessor 
geht man etwas anders vor. Hier wird nach 
der jeweiligen Operation der Anpassungs- 
befehl DAA benutzt. Das N-Flag im Sta- 
tus-Register ist nach vorausgegangener 
Addition auf O, bei Subtraktion auf 1 ge- 
setzt. Ergibt sich im Register bei der arith- 
metischen Operation ein Übertrag vom 
unteren Nibble zum oberen, so wird das 
H-Flag (Half Carry) gesetzt. Mit Hilfe die- 
ser Flags (evtl. auch noch C-Flag aus vor- 
ausgegangener Operation) korrigiert der 
DAA-Befehl das aritnmetische Ergebnis 
im Sinne der BCD-Logik. Einfaches Bei- 
spiel: 


LD A,27h 
ADD A,38h ; Ergebnis: 5Fh 
DAA ; Ergebnis: 65h 


Dieser mächtige DAA-Befehl wirkt aller- 
dings nur bei 8-Bit-Arithmetik. 
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7.4. AND, XOR und OR 


Die Funktionsweise dieser 8-Bit-Befehle 
dürfte hinlänglich bekannt sein. Wichtige 
Anmerkung: Nach Ausführung dieser 
Operationen ist das Carry-Bit auf 0 ge- 
setzt. Da der Z80 keinen Befehl zum Lö- 
schen des Carry-Bits kennt, wird hierzu 
häufig etwa XOR A (löscht gleichzeitig A- 
Register), AND A oder OR A verwendet. 


7.5. CP 


Mit CP läßt sich das A-Register mit jedem 
anderen Register, einem Immediate-Wert 
oder einer Speicherzelle vergleichen (im 
Sinne einer internen Subtraktion). Für die 
möglichen Adressierungen vergleiche 
man die Tabellen. Ein wesentlicher Unter- 
schied zum 6502: Das Carry-Bit wird ge- 
nau entgegengesetzt verwendet. Die Be- 
fehle LD A,5 und CP 6 setzen beim Z80 
das Carry-Flag zu 1 ((A) < Operand ). 
Beim 6502 ergibt LDA #$05 und CMP 
#$06 gerade C =0. 


7.6. JP und JR 


Neben dem Standard-Sprungbefehl JP 
gibt es hier ähnlich wie beim 65C02 einen 
relativen Jump JR. Die Sprungdistanz muß 
effektiv zwischen -126 und +129 liegen. 
Sowohl JP als auch JR (mit Einschränkun- 
gen) können noch von Bedingungen ab- 
hängig gemacht werden — wie die Tabelle 
im Anhang zeigt. Die Kürzel haben dabei 
(wie auch für CALL/RET) folgende Bedeu- 
tung: NZ (Not Zero, Z-Flag = 0), Z (Zero, 
Z = 1), NC (No Carry, C = 0), C (Carry, C 
= 1), PE (Parity Even/gerade Anzahl von 


ten, P/V = 1), PO (Parity Odd/ungerade, 
P/V = 0), P (Positive, S-Flag = 0), M 


(Minus, S = 1). 

Ein indirekter Sprung (wie beim 6502 z.B. 
JMP (KSW)) ist beim Z80 über Register 
möglich, und zwar mit HL-IX-IY als Adreß- 
zeiger, also z.B. JP (IX). 


Eine spezielle Z80-Befehlsgruppe bilden 
die Blockbefehle. Man erkennt sie daran, 
daß den Mnemonics LD und CP noch die 
Kürzel I, D, IR oder DR angehängt sind. 
Mit diesen Befehlen ist es möglich, durch 
einen Befehl Speicherblöcke zu verschie- 
ben oder nach einem festen Byte abzusu- 
chen. Das | bedeutet „Inkrement“, D „De- 
krement“ und R „Repeat“. 


7.7. LDIR/LDDR (und LDV/LDD) 


Enthält HL den Zeiger auf die Quelle, DE 
den Zeiger auf das Ziel, so werden soviele 
Bytes von Quelle nach Ziel transferiert, 
wie das Zählregister BC angibt. Bei den |- 
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Befehlen werden die Zeiger dabei inkre- 
mentiert (Transfer vorwärts), bei D dekre- 
mentiert (Transfer rückwärts). Beispiel: 


LD BC,100h ; 256 Bytes 
LD HL,TAB1 

LD DE,TAB2 

LDIR 


Hier wird.der.Bereich TAB1.+ 0. bis TAB1 
+ 255 nach TAB2 verschoben. 


Die Befehle LDI/LDD sind als Vorstufe zu 


LDIR/LDDR anzusehen. Ihnen fehlt das 
„Repeat“, sie inkrementieren/dekremen- 
tieren aber die Zeiger HL/DE/BC nach 
jedem (Einzel-)Transfer. 


7.8. CPIR/CPDR (und CPI/CPD) 


Hiermit läßt sich ein Speicherblock nach 
einem Byte durchsuchen. Das Ergebnis 
(gefunden/nicht gefunden) zeigt sich im 
Parity-Flag. Beispiel: Durchsuchen von 
TAB (Länge AK) nach „x“. 


LD HL,TAB ; Startadresse 
LDA,"x” ; Muster 

LD BC,1000h; Anzahl Bytes 
CPIR ; Blockvergleich 
JP PE,FOUND 

JP PO,NOTFND 


Beim Ausgang FOUND enthält HL die um 
1 erhöhte Adresse des gefundenen Bytes 
(hier „*“). Die Befehle ohne Repeat- 
Funktion sind CPI/CPD. 


7.9. LD-Nachtrag 


Zu den LD-Befehlen sind zwei wichtige 
Nachträge erforderlich: 

a) Dieser Befehl setzt keine Flags! Die 
beim 6502 übliche Programmierung indi- 
rekter Sprünge (z.B. LDA #$00 und BEQ 
...) Ist beim Z80 nicht möglich, da LD A,‚0 
kein Z-Flag setzt. Als Ersatz stehen aber 
für das erwähnte Problem einfachere rela- 
tive Sprungbefehle zur Verfügung. 

b) Das 16-Bit-LD - z.B. LD (ZELLE),HL — 
schreibt den Registerinhalt im Low/High- 
Format in den Speicher, bzw. interpretiert 
den Speicherinhalt als Low/High beim 
Transfer in ein Register. Hat HL den Inhalt 
55FFh, so steht im Beispiel ab ZELLE FFh, 
55h. Mit LD HL,(ZELLE) würde in HL wie- 
der 55FFh stehen. 


7.10. Schiebebefehle 


Bei den Schiebe- und Rotationsbefehlen 
reicht es, dem Assembler-Kenner die fol- 
genden Skizzen zu präsentieren: 








Beim arithmetischen Rechtsschieben SRA 
wird das Vorzeichen-Bit reproduziert, 
beim SRL dagegen eine O nachgezogen. 





Die Rotationsbefehle unten wirken prak- 
tisch auf 9 Bits (8 Register-Bits + Carry- 
Bit), oben auf 8 Bits. Die Befehle RLA, 
RRA, RLCA, RRCA adressieren (implizit) 
nur das A-Register, während die anderen 
Befehle auf verschiedene Operanden wir- 
ken können. | 


7.11. RLD/RRD 


Über die im vorausgehenden Abschnitt 
behandelten Verschiebe-Befehle hinaus 
hat der Z80-Prozessor noch 2 Leckerbis- 
sen parat: Nibble-Rotation RLD und RRD. 
Diese 4-Bit-Verschiebe-Befehle sind her- 
vorragend im Rahmen der BCD-Arithmetik 
(aber nicht nur dort!) einsetzbar. 
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Die Befehlsfolge 


LD HL,BCD 
LDA,(ASCH) ;A:39 BCD:?? 
RLD , A:3? BCD:?9 
.LDA,(ASCII+1) ; A:31 BCD:?9 
RLD ; A:3? BCD:91 
ASCII: DB 39h,31h ; = ASCII ’91' 


BCD? DS 1 


wandelt die ASCIl-Zeichenfolge „91“ in 
die gepackte BCD-Darstellung um. Hierzu 
muß HL auf die Adresse zeigen, in der der 
BCD-Wert abgelegt werden soll. Mit ei- 
nem äußeren Loop lassen sich auch län- 
gere Strings von ASCII-Ziffern in BCD- 
Form umwandeln. (Versuchen Sie das 
doch einmal selbst! Vorschlag: DE zeigt 
auf ASCIl, Loop-Counter in B, ...; lesen 
Sie noch die Erläuterungen zu DJNZ) 


7.12. BIT, SET und RES 


Die Befehle SET und RES setzen im Ope- 
randen ein Bit oder löschen es. Der BIT- 
Befehl testet den Operanden auf ein kon- 
kretes Bit und setzt das Z-Flag nach fol- 
gendem Schema: 


Bit im Operand = 1 —Z-Flag = 0 
Bit im Operand = 0 —Z-Flag = 1 


Beispiel: 
MUSTER: DB 17h 
| LD HL,MUSTER 
BIT 4,(HL) 
Die Bit-Numerierung beginnt mit O von 


rechts. Im Beispiel wird das Z-Flag auf O 
gesetzt. 
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7.13. CALL und RET 


Diese Befehle sind funktionsgleich mit 
JSR/RTS beim 6502. Beim Z80 kann man 
die Ausführung der Befehle aber noch von 
Bedingungen abhängig machen. Mit 


CALL NZ,SUB 


wird das Unterprogramm SUB nur dann 
durchlaufen, wenn das Ergebnis der vor- 
ausgegangenen Operation <> O war. Ent- 
sprechende Möglichkeiten sind auch beim 
RET-Befehle gegeben. 


7.14. DINZ 


Dieser Spezialbefehl (Decrement and 
Jump if non-zero) erleichtert die Program- 
mierung von Schleifen ungemein. Bei- 
spiele: 


LD B,COUNT 
KOOR::: 
DJNZ LOOP 
oder 
LD B.COUNTI 
LOOP1: PUSH BC 
LD B.COUNT2 
LOOP?: ... 
DJNZ LOOP2 
POP BC 
DJNZ LOOP1 


Das B-Register muß stets den Schleifen- 
zähler enthalten. DJNZ dekrementiert den 
Zähler und verzweigt nach der angegebe- 
nen Adresse, wenn der Zähler <> 0 ist. 
Der Startwert in B gibt also exakt die An- 
zahl der Schleifendurchläufe an. Im obe- 
ren Beispiel liegt eine einfache Schleife 
vor, darunter ein Beispiel mit einer 
Schachtelung. Der jeweils äußere Schlei- 
fenzähler wird auf dem Stack zwischenge- 
speichert. Auf diese Weise lassen sich 
auch Schachtelungen mit größerer Tiefe 
leicht programmieren. 


8. Der MACRO80-Assembler 


Wie schon in der Einleitung gesagt, ist der 
CP/M-eigene Assembler ASM.COM ein 
8080-Assembler, d.h. er verarbeitet nur 
Programme in 8080-Normierung. Dies wä- 
re tragbar, wenn er zumindest makro-fähig 
wäre. Man könnte dann die Z80-Opcodes 
in Form von Makros definieren. Im Gegen- 
satz dazu ist der MACRO80-Assembler 
(von Microsoft) ein Cross-Assembler, der 
(fast) keine Wünsche offen läßt. Quellpro- 


gramme können in 8080-, 6502-, Z80- 
Normierung geschrieben sein (sogar ge- 
mischt im gleichen Programm). Assem- 
bler-Listings können in Files ausgegeben 
werden. Cross-Reference ist möglich (Zu- 
satzprogramm CREF8D0). Der Object-Code 
wird in Form von verschieblichen (relokati- 


. ven) Modulen hergestellt. Es ist klar, daß 


hier nicht alle Features in voller Breite 
behandelt werden können. Die nachfol- 
gende Auswahl orientiert sich an den Er- 
fordernissen des Z80-Einsteigers, bringt 
aber darüber hinaus die Makro-Behand- 
lung und (in Beispielen) weiteres Material, 
das Ausgangspunkt für eigene Experi- 
mente sein soll. 


8.1. Aufruf des Assemblers 


Die Start-Anweisung lautet: 


- MACROß8O object,list=source/switch 


Hierin ist „object“ der File-Name des er- 
zeugten Code-Files. Die Default-Exten- 
sion ist „.REL“. Die Angabe „list“ bezieht 
sich auf die Ausgabe des Assembler-Li- 
stings: Üblicherweise ist hierfür entweder 
„ITY:“ ( Ausgabe auf Bildschirm), „LST:“ 
(Ausgabe auf Drucker) oder ein File-Name 
(Default-Extension „.PRN“) zu schreiben. 
Während „object“ und „list“ optional sind, 
muß für „source“ stets ein File-Name 
(Default-Extension „.MAC“) angegeben 
werden. Läßt man die Laufwerksbezeich- 
nungen weg, so wird natürlich stets das 
aktuelle Laufwerk angesprochen. 

Ist beispielsweise das Quellprogramm 
TEST.MAC zu assemblieren, so bewirkt 
MACRO80 =TEST das Ablegen des Ob- 
ject-Codes in TEST.REL. Ein Listing wird 
nicht erzeugt. Mit MACRO80 TEST,TTY: 
=TEST wird Object-Code in TEST.REL 
und das Listing auf den Bildschirm ausge- 
geben. Die Sequenz MACRO8O ‚TTY: 
=TEST unterdrückt den Object-Code. 
Von den diversen Switches in der Kom- 
mando-Zeile sollen nur die folgenden be- 
handelt werden: 

/C erzeugt einen speziellen File für das 
CREF80-Programm. 

/Z legt den Assembler beim Start auf Z80- 
Code fest. (Manche Versionen sind beim 
Start sonst auf 8080-Normierung festge- 
legt. Ausprobieren!) 

Beispiel für die Schreibweise: 


MACRO80 TEST,LST:=TEST/Z/C 


8.2. Die Quellprogramm-Normierung 


Die verschiedenen Felder einer Assem- 
bler-Zeile werden durch mindestens ein 
Leerzeichen oder Tab-Zeichen getrennt. 
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Kommentare werden durch Voranstellen 
von „;“ gekennzeichnet (Ausnahme: spe- 
zielle COMMENT-Anweisung). Alle Labels 
(= Adreßdefinitionen) müssen durch „:“ 
abgeschlossen werden. Ausnahmen bil- 
den nur die EQU- und ASET-Anweisun- 
gen. Beispiel: 


DATA: DS5 _;reserviert 
5 Speicherplätze 
XP EQU DATA 


z ASET 4 : ASET wirkt wie EQU 
START: LDA,DATA+2 


MOVE: LD (DATA),A 


Z ASET 7 ; Redefin. bei ASET 
erlaubt 
; nicht aber bei EQU 
END 


Mit diesem 7-Zeilen-Dummy-Programm 
(ohne die Zwischenraum-Punkte) können 
Sie Ihren MACRO80 ausprobieren, insbe- 
sondere die Z80-Voreinstellung überprü- 
fen. Sollten Sie die 8080-Version haben, 
werden insbesondere die beiden LD-Zei- 
len als fehlerhaft gemeldet. Verwenden 
Sie dann beim Start von MACRO80 den 
/Z-Switch oder im Quellprogramm den 
. Pseudo-Op „.Z80“. (Wollen Sie einmal 
doch 8080-Programme übersetzen — oder 
gar 6502-Programme -, so ist dem betref- 
fenden Programmteil ,„.8080“ oder 
„.6502“ voranzustellen.) 


8.3. Vereinbarungsteil 


Statt vieler Worte ein selbsterklärendes 
Beispiel für einen Vereinbarungsteil in 
Abb. 7 
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Trotz gegenteiliger Aussage in der MACRO- 
80-Beschreibung, sollte man nur Labels 
mit 6 oder weniger Zeichen definieren. 
Probleme, insbesondere bei Makro-Erset- 
zungen, sind sonst unvermeidlich (zumin- 
dest bei der im Test verwendeten Version 
3.36 von MACRO8D0). 

Noch eine Bemerkung zu DW: Die As- 
sembler-Darstellung High/Low entspricht 
der Registerdarstellung, während im Spei- 
cher ja nach Low/High-Muster abgelegt 
wird. | 


8.4. Die Makro-Technik 


Die im Apple-6502-Bereich vorhandenen 
Assembler besitzen teilweise die Makro- 
Fähigkeit (z.B. Merlin/BIG MAC, MACRO- 
SOFT, ORCA, ... ; nicht aber LISA). Der 
MACRO80-Assembler für Z80-Code er- 
laubt es, Makros vorab im Programm zu 
definieren oder/und eine Makro-Bibliothek 
(oder auch mehrere) von einem Disk-File 
einzulesen. Der Formalismus ist hierbei 
folgender: 


Makros programmintern 
MACNR1 MACRO dummy1,dummy2.... 


ENDM 
MACNR2MACRO dummy1,dummy2.... 


ENDM 


(Beginn des Programms) 


Makro-Bibliothek 


IF1 

INCLUDE MACROS.LIB 
ENDIF 

(Beginn des Programms) 


Die Pseudo-Operation „MACRO“ defi- 
niert. den links stehenden Namen (also 
MACNRI1, MACNR2) als Makro, rechts 
stehen die formalen Parameter, für die 
später aktuelle Werte eingesetzt werden 
müssen. Die Anweisung „ENDM“ schließt 
die jeweilige Makro-Definition ab. Die 


Pseudo-Operation „INCLUDE“ benennt 


den rechts stehenden File-Namen als Ma- 
kro-Bibliothek. Dieser File wird während 
der Assemblierung eingelesen — und zwar 
normalerweise in jedem Assembler-Pass. 


Die oben stehenden Anweisungen IF1 .... 
ENDIF beschränken diesen Vorgang auf 
den ersten Assembler-Pass. Es bedeutet 
„IF1“ nämlich „falls im 1. Pass“. (Dies ist 
ein Beispiel für eine bedingte Assemblie- 
rung, hierzu später mehr.) 


Diese Methodik hat noch zwei weitere 
Vorteile: Sie vermeidet die zeitaufwendige 
Redefiniton der Makros im 2. Pass und 
unterdrückt die Auflistung der (evtl. lan- 
gen) Makro-Bibliothek im Assembler-Li- 
sting (alle Listings werden im 2. Pass er- 
stellt!). | 


Nun zu praktischen Beispielen für Makros. 
Betrachten wir den Fall, daß der Inhalt von 
SZi nach SZ2 transferiert werden soll. 
Normales Coding wäre z.B. 


LD A,(SZ1) 
LD (SZ2),A 


Die Makro-Definition 


MOVE MACRO ZIEL, QUELLE 
LD A,(QUELLE) 
LD (ZIEL),A 
ENDM 


liefert mit dem Aufruf „MOVE SZ2,SZ1“ 
das gleiche Resultat. Weitere einfache Ma- 
kro-Beispiele enthält die Makro-Liste am 
Ende des Artikels. Zum Teil wird dabei die 
LOCAL-Anweisung verwendet. Sie be- 
wirkt, daß die folgenden Labels nur inner- 
halb des betreffenden Makros bekannt 
sind. 


Im Rahmen der Makro-Technik sind auch 
die bedingte Assemblierung und die Re- 
peat-Funktion (Wiederholung von Assem- 
bler-Zeilen) von Bedeutung. Hierzu ein 
Beispiel, das Ausgangspunkt für weitere 
eigene Experimente sein soll. Problem- 
stellung: Ab Adresse OP1 stehen N Bytes, 
die eine Binär-Zahl darstellen (beginnend 
mit den Low-Order-Bytes); ab OP2 stehen 
weitere N Bytes einer 2. Zahl; diese Zahl 
soll zur ersten addiert werden („lange Ad- 
dition“); es soll möglichst wenig Rechen- 
zeit verbraucht werden. Wegen der letzten 
Forderung verbieten sich Schleifen, viel- 
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mehr muß der Source-Code ausgeschrie- 
ben werden. Bei der Programm-Entwick- 
lung sei aber die Länge N nicht bekannt. 


Eine Lösung zeigt Abb. 8 


Mit dem Pseudo-Op „IFB“ (= IF BLANK) 
wird zunächst abgefragt, ob N im Aufruf 
angegeben wurde — ersatzweise wird NN 
zu 1 gesetzt, im anderen Fall zu N. (Hier 
muß eine neue Variable NN eingeführt 
werden, da N auch im Label-Feld durch 
den aktuellen Wert ersetzt würde.) Der 
Zähler X wird zu O gesetzt. Der Anwei- 
sungsblock zwischen „REPT“ (= RE- 
PEAT) und dem ersten ENDM wird nun 
NN mal bei der Assemblierung (!) durch- 
laufen. (Das zweite „ENDM“ unten 
schließt die Makro-Definition ab.) Die Va- 
riable X wird nach jedem Schritt um 1 
erhöht. Im Anweisungsblock wird mit IFE/ 
ELSE/ENDIF der Fall X =0 von X <> 0 
getrennt. (Liest sich fast wie ein Pascal- 
Programm.) „IFE.X“ bedeutet „falls X = 
Eh | 

Da MACRO8O die Makros im Assembler- 
Listing ausschreibt, ist es leicht möglich, 
sich bei eigenen Experimenten von der 
Richtigkeit des Ansatzes zu überzeugen. 
Eine Schachtelung von Makros (Nesting 
Macros) ist erlaubt. Ein kurzes Beispiel 
hierzu: Es sei ein Makro DISPLAY vorhan- 
den zur Ausgabe von Strings auf den Bild- 
schirm (die Startadresse des Strings sei 
der Parameter im Makro-Aufruf). Es soll 
ein Makro FMELD (Fehlermeldung) ge- 
schrieben werden, das abhängig von einer 
Fehlernummer K= 1,2, 3, ... einen Text ab 
Adresse TEXT1, TEXT2, TEXT3, ... aus- 
gibt. 


FMELD MACRO K 
DISPLAY TEXT&K 
ENDM 


Der Parameter K wird mit dem Namen 
TEXT durch das Zeichen & verkettet. Aus 
FMELD 8 macht der Assembler DISPLAY 
TEXT8. Das Makro DISPLAY selbst kann 
intern noch auf weitere Makros zurück- 
greifen. 


Die wenigen hier dargestellten Möglich- 
keiten stellen nur einen Ausschnitt dar, in 
jedem Fall lohnt es sich, die MACRO80- 
Beschreibung durchzuarbeiten und an ei- 
genen Beispielen auszuprobieren. 


9. Der Linker L80 


Die von MACRO8O übersetzten Program- 
me werden in Form von verschieblichen 
(relokativen) Modulen ausgegeben. Diese 
müssen noch vom Linker behandelt wer- 
den, bevor man startfähige Programme er- 
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hält. Auf die speziellen Features von MA- 
CRO80/L80 in diesem Bereich soll nicht 
weiter eingegangen werden. (Die sich hier 
bietenden Möglichkeiten stehen kaum zu- 
rück hinter den Eigenschaften von Assem- 
blern/Linkern bei großen Mainframes.) 
Der Standard-Aufruf für L80 lautet: 


L80 modul,comfile/N/E 


Hierin ist „modul“ der Name.des von MA- 
CRO80 ausgegebenen REL-Files, „com- 
file“ der File-Name für den zu erzeugen- 
den COM-File. („.REL" und „.COM“ 
brauchen nicht angegeben zu werden.) 
Die Switches /N und /E bedeuten: Ab- 
speichern des COM-Files auf Disk und 
Beenden des Linkers. Als Startadresse 
nimmt L80 normalerweise 0100h, es sei 
denn, in der END-Anweisung des Assem- 
bler-Programms ist ein Adreßausdruck an- 
gegeben - z.B. END LAB7. Dann setzt 
L80 vor das Programm einen JP LAB7. Die 
erste Assembler-Zeile muß also nicht un- 
bedingt die erste auszuführende Anwei- 
sung beinhalten. Insbesondere kann kom- 
plikationsios der Vereinbarungsteil vor 
dem Anweisungsteil liegen. 


10. SUBMIT-File 


Am einfachsten ist es, sich einen SUB- 
MIT-File (z.B. mit dem Zeileneditor ED- 
.COM) herzustellen, der sowohl den As- 
sembler MACRO8O als auch den Linker 
L80 aufruft: 


MACRO8 %1,%1=%1/Z 
TYPE %1.PRN 

L80 % 1,%1/N/E 

ERA %1.REL 





Je nach Bedarf könnte man noch ZSID 
%1.COM oder einfach %1 anfügen (De- 
bugger-Aufruf oder direkter Programm- 
Start). Speichert man diese Zeilen in dem 
File RUN.SUB ab, so kann man beispiels- 
weise mit dem Aufruf 


SUBMIT RUN TEST 


das Assembler-Programm TEST.MAC as- 
semblieren und linken. Das Listing wird 
auf dem Bildschirm ausgegeben, der 
überflüssige REL-File gelöscht. 

Wichtig: SUBMIT kann nur dann aufgeru- 
fen werden, wenn A: das aktuelle Lauf- 
werk ist. Arbeiten Sie z.B. mit 2 Laufwer- 
ken und haben B: als aktuelles Laufwerk, 


so funktioniert SUBMIT nicht (ausprobie- 


ren!). Grund (vgl. die Erläuterungen unter 
11. und 12.): Der für SUBMIT wichtige File 
$$$.SUB wird auf das aktuelle Laufwerk 
gelegt, müßte aber stets auf A: liegen (wo- 
von CP/M den CCP nachlädt). Mit folgen- 
der Änderung klappt es immer. Geben Sie 
der Reihe nach ein: 


DDT SUBMIT.COM 

S5BB <Return> 01 <Return> . <Re- 
turn> 

TC 

SAVE 5 SUBMIT.COM 


Vielleicht ändern Sie für die gepatchte Ver- 
sion den Namen ab. Die Änderung 01 
(gegenüber 00) in 5BB setzt im FCB den 
Drive-Parameter auf A:. 


11. Speicherverwaltung unter 
CP/M 2.2 


Die folgenden Erläuterungen beziehen 
sich stets auf einen 64K-Speicherausbau 
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DFFFFR: 


Disk-Treiber/Puffer 


40-Zeichen-Bildschirmpuffer 
l/0 Configuration Block 


OFOOOH: 
DEN: 


6502 -Stack/Zero-Page 


1/0 -Adressen (6502: $ (xxx) 


DEOOON: 


DDFFFH: 


BIOS/Basic 1/OSystem 


ODAOOH: 
DDIFFh: 


BDOS/Basic Disk Operating System 


OCLOOH: 
OCBFFh: 


CCP/ Console Command Processor 


OC4OON: 
OC3FFh: 


TPA/Transient Program Area 


00100h: 
DOOFFh: 


System - Parameter 


DODOOH: 
Abb. 9 


(48K + 16K-Karte). In diesem Fall ist die 
Speicheraufteilung unter CP/M 2.2 wie in 
Abb. 9 gegliedert. 


6502-Experten werden sich jetzt wundern, 
wieso im Bereich Cxxx System-Program- 
me liegen können, da dieser Adreßbereich 
doch u.a. für de ROM-Routinen der Con- 
troller-Karten reserviert ist. Die Lösung 
des Rätsels ist eine hardware-mäßig 
durchgeführte Adreßcodierung. Beim 
6502 ist der nutzbare Speicherplatz durch 
den CX-Bereich unterbrochen. Ohne DOS 
3.3 stehen dem Benutzer z.B. die Berei- 
che $800-$BFFF und (RAM-Karte) 
$D000-$FFFF (mit 2 Banks) zur freien Ver- 
fügung. Um die Unterbrechung zu beseiti- 
gen, wird bei der Z80-Softcard eine 
Adressenumrechnung nach folgenden 
Schema vorgenommen: 


6502-Bereich _> Z80-Bereich 

$1000-$BFFF (- 1909) B0000h-PAFFFh 
$DO0B-S$FFFF (- 2009) DBOßGh-®DFFFh 
$CDDBB-SCFFF (+ 2009) BEBBPh-DEFFFh 
$0000-SOFFF (- 1999) OFOBßOh-ÖFFFFh 


Abb. 10: Adreßcodierung 


Das hat zur Folge, daß nunmehr unter CP/ 
M lückenlos der Bereich 0000h-DFFFh 
genutzt werden kann. Die Umrechnungs- 
tabelle muß allerdings nur dann beachtet 
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werden, wenn 

a) Kopplungen zwischen 6502- und Z80- 
Prozessor vorgesehen sind, 

b) ROM-Routinen des 6502 auch unter 
Z80 benutzt werden sollen. 

Im Normalfall kann die Adreßcodierung 
getrost vergessen werden. Gewöhnungs- 
bedürftig ist und bleibt allerdings, daß die 
vertrauten $Cxxx-Adressen hier mit „E“ 
beginnen. 

Nun zur Speicherverwaltung selbst: Ganz 
grob (!) läßt sich sagen, daß der CCP dem 
Command-Interpreter unter DOS 3.3 ent- 
spricht, BDOS dem File-Manager, BIOS 
der RWTS (und anderen I/O-Routinen). 
Die TPA ist der für den Anwender zur 
Verfügung stehende Speicherbereich. 
Wesentlich für den Assembler-Program- 
mierer ist nun, daß der CCP von Program- 
men überschrieben werden darf, sofern 
am Ende des Programms ein Warmstart 
(JP 0000h) ausgeführt wird. CP/M lädt 
dann den CCP von der Diskette nach. 
Bleibt jedoch der CCP intakt, und wird das 
eigene Programm über RET verlassen, 
braucht nichts nachgeladen zu werden. In 
diesem Fall stehen dem Benutzer durch- 
gehend etwa 49K zur Verfügung, im ande- 
ren Fall 2K mehr. (Vergleich: unter DOS 
3.3 nur ca. 37K in einem Stück.) Beim CP/ 
M 2.23 (60K) wird auch noch die Bank 1 
der RAM-Karte für das System benutzt, so 


daß hier die TPA noch entsprechend grö- 
Ber ist. 


12. /O-Funktionen unter CP/M 


Das Betriebssystem besitzt 37 von „au- 
Ben“ ansprechbare Einzelfunktionen für 
die I/O-Abwicklung. Diese Funktionen 
sind durch Nummern von 0-36 (OOh-24h) 
gekennzeichnet. Hiervon wird in diesem 
Aufsatz nur ein Teil ausführlich bespro- 
chen, und zwar Console-Eingabe/Ausga- 
be einzelner Zeichen/Strings, sowie File- 
/O vom sequentiellen Typ. Da die Proze- 
dur fast überall gleich ist, kann für alle 
anderen Funktionen auf das CP/M Refe- 
rence Manual verwiesen werden. Die prin- 
zipielle Vorgehensweise ist dabei folgen- 
de: In das C-Register wird die Funktions- 
nummer geladen und danach BDOS auf- 
gerufen (BDOS-Vektor steht bei 0005h). 
Bei manchen Funktionen muß vorher noch 
im DE-Register eine Adresse bereitge- 
stellt werden (z.B. Puffer-Adresse). Das ist 
alles! Da bei der Ausführung der BDOS- 
Funktionen Register zerstört werden, muß 
der Anwender ggf. seine Register vor dem 
BDOS-Aufruf retten. 


12.1. Einfache l/O-Funktionen 
(Console, Drucker) 


Beispiel 1: Einlesen eines Zeichens von 
Tastatur. Durch 


LD 6,1 ;1 = Console Input 
CALL BDOS ; BDOS = 0005h 


wird ein Zeichen im A-Register übergeben 
(Low-ASCII, Bit 7 = 0). Die BDOS-Routi- 
ne wartet dabei auf das Betätigen der Ta- 
statur und verzögert die weitere Pro- 
grammausführung. 

Beispiel 2: Einlesen einer Zeile von Tasta- 
tur. Hierzu ist 


LD (BUFFER),MAX ; MAX = max. 
Zeilenlänge 
; 10 = Console String 
Input 


LDC,10 


LD DE,BUFFER 
CALL BDOS 


anzugeben. BDOS erwartet, daß die erste 
Position im Puffer die maximale vom Be- 
nutzer zugelassene Zeilenlänge enthält. 
Das garantiert die 1. Assembler-Zeile. DE 
enthält die BUFFER-Adresse. Nach Aus- 
führung des BDOS-Aufrufs legt die Input- 
Routine in der 2. Position in BUFFER die 
tatsächlich eingegebene Zeichenzahl ab, 
danach erst die eigentlichen Daten. BUF- 
FER muß also 2 Bytes länger sein als der 
erwartete String. Die Zeilenende-Zeichen 
CR/LF (Carriage Return/Line Feed) wer- 
den nicht in den BUFFER übergeben -— 
ebensowenig wie die Edit-Zeichen (z.B. 


‚ String-Puffer 
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Ctrl-H). Zeichen erscheinen stets in Low- 
ASCII. | 

Beispiel 3: String-Ausgabe auf Bildschirm. 
Der auszugebende String muß durch ein 
„$“ abgeschlossen sein. Davor sind ggf. 
noch CR/LF zu setzen — wie im folgenden 
Fall: 


LD C,9,9 = Display String 
LD DE,STRING 
CALL BDOS 


STRING: ASC ”Testzeile” 
DB OAh,0Dh,”$” 


Der auszugebende String darf natürlich 
kein „$“ als Datenzeichen enthalten. In 
einem solchen Fall muß der String zei- 
chenweise ausgegeben werden; hierzu 
dient das Makro DISPC in der Makro- 
‚Liste im Anhang. Hiermit könnte der Leser 
ein Makro definieren, das z.B. das gesetz- 
ite Bit 7 als Ende-Zeichen betrachtet. Der 
String würde dann mit DC definiert. 

Die Makro-Liste enthält noch weitere ele- 
mentare I/O-Funktionen, z.B. für die 
Drucker-Ansteuerung. 


12.2. Sequentielles File-/O 


Maßgebend ist hierfür der sogenannte 
FCB = File Control Block (in der Funktion 
vergleichbar mit der File-Manager-Para- 
meter-Liste unter DOS). Dieser Block hat 
eine Länge von 36 Bytes und istnach dem 
in Abb. 11 wiedergegebenen Schema 
vorzubelegen. 


Ähnlich wie unter DOS, kann man mit ei- 
nem eigenen FCB arbeiten oder den Sy- 
stem-FCB benutzen (liegt bei Adresse 


005Ch-007Fh). Arbeitet man mit mehr als 


einem File simultan, so sollte man stets 
mehrere und damit selbst definierte FCBs 
vorsehen. Ein spezielles Makro für den 
Vereinbarungsteil (s. Makro-Liste) erleich- 
tert die Definition/Initialisierung des FCB. 
Die jeweilige FCB-Adresse ist stets im 
DE-Register bereitzustellen. | 

Nun zum Problem des Daten-Puffers. Hier 
ist zunächst festzustellen, daß CP/M den 
Datentransfer mit einer festen Record- 
Länge von 128 Bytes abwickelt. Daten 


können somit nur 128-byte-weise gele- 
sen/geschrieben werden. Der ‚System- 
Puffer liegt bei 0080h-OOFFh. Entscheidet 
man sich für einen eigenen Daten-Puffer, 
so muß das dem System mitgeteilt wer- 
den. Hierfür existiert eine separate BDOS- 
Funktion, die wie folgt abgerufen wird: 


.B0,26;;:26: = Set DMA 
Address 

LD°’DE,DATABUF 

CALL BDOS 


DATABUF: DS 80h 


Die neue Puffer-Adresse kann nur durch 
erneuten Aufruf der Funktion 26, durch 
Warmstart oder die BDOS-Funktion 0 
(DISK RESET) wieder verändert werden. 


12.2.1. File-Eröffnung 


Bei der Eröffnung eines Disk-Files muß 
man unterscheiden zwischen Neueröff- 
nung (MAKE FILE) und einer Wiedereröff- 
nung eines schon bestehenden Files 
(OPEN FILE). Jetzt Achtung: ‘Bei einem 
MAKE FILE kontrolliert BDOS nicht (!), ob 
ein File gleichen Namens schon vorhan- 
den ist, sondern legt u.U. einen namens- 
gleichen File an (evtl. File vorher löschen). 
BDOS übergibt nach Ausführung der 
Eröffnungen einen Status-Code im A-Re- 
gister: O-3 bedeutet „alles O.K.“, OFFh 
heißt Fehler (MAKE FILE: Disk Full, OPEN 
FILE: File not found). 


12.2.2. Record jesen/schreibön 


Für das Lesen und Schreiben sind die 
BDOS-Funktionen 20 und 21 zuständig. 
Ist nach Ausführung dieser Funktionen 
das A-Register <> 0, so ist beim Schrei- 
ben „Disk Full“ aufgetreten, beim Lesen 
das File-Ende erreicht worden. Die Makros 
READRC und WRITREC in der Makro-Liste 
berücksichtigen diese Fälle. Schreibt man 
Daten in einen bestehenden File und 
überschreitet das Dateiende, so wird 
zwanglos die Datei vom System erweitert. 
Eine separate APPEND-Funktion ist über- 
flüssig. Bei ASCIl-Dateien ist es üb- 


lich, das Dateiende (sofern innerhalb eines 
Records) durch CTRL-Z (1Ah) abzuschlie- 
Ben. So verfährt der ED.COM und auch 
WORDSTAR. 


12.2.3. Datei schließen | 


Am Ende der Verarbeitung ist die CLOSE- 
Funktion auszuführen (BDOS-Funktion 
Nr.16) 

Das Beispiel in Abb. 12 simuliert das 
TYPE-Kommando von CP/M und zeigt 
den Umgang mit den verschiedenen 
BDOS-Funktionen. Es wird angenommen, 
daß der File-Name bereits im unten defi- 
nierten FCB eingetragen wurde oder von 
vorneherein feststeht. Die Makro-Namen 
beziehen sich auf die Makro-Liste. 


Versuchen Sie doch einmal, auf ähnliche 
Art und Weise ein simples File-Copy-Pro- 
gramm zu erstellen. (Zuerst mit fest vorge- 
gebenen File-Namen. Programmieren Sie 
dann im nächsten Schritt ein kleines Menü 
für die Eingabe der File-Namen und der 
zugehörigen Laufwerke. Vielleicht eine 
Pause für Diskettenwechsel?) 

Noch eine wichtige Bemerkung zum De- 
buggen solcher Programme, die File-l/O 
beinhalten: Die Debugger setzen beim 
Start den Stackpointer auf O100H — also 
auf das Ende des System-I/O-Puffers. 
Wird dieser benutzt, muß in jedem Fall ein 
eigener Stack-Bereich verwendet werden. 
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BDos 0 Eq 


DELIM | 
; schließt String durch CR/LF/$ ab 


ReaDs 


Dısec 
; Zeichen/E-Register -> Bildschirn 


DOD5H 
_ MACRO OR 


_ READE 


; Zeichen/Tastatur -> A-Register 


EVER RE 
Dr NR BDOS 
 ENDM 


a | 


MACRO 
> NER 7 BUFFER 


 BUFFER + ®: max. Zeichenzahl MAXZ 
; ; BUFFER + 1: tatsächl. Zeichenzahl 
; BUFFER + 2: JERORBRERTEINE ohne ER/LF ) 


LD A,MAXZ 


LP: -; (BUFFER),A 


195. C,1® 


LD DE, BUFFER 


CALL- 


BDOS 
‚ENDM ) 


MACRO | 


5 RER 
CALL BDOS 
 ENDM 


_DIsps MACRO BUFFER 


; String begrenzt durch $ -> Bildschirm 
5 BUFFER: ‚auszugebende Zeichenkette 


J 


Bader & ‚0,9 


LD ___DE,BUFFER 


CALL 
ENDM 


MACRO | 


BDOS- 


ar ? 


setzt Characters CR/LF ein 
DB.“ ÖDH, BAH 


ENDM 


_MACRO 


RR ERIRR © 
DB f "g" h 
ENDM 


PRINTC _MACRO 


Zeichen/E-Register > Drucker/LST: 


LD C,5 
CALL BDOS 
ENDM 





_ BUFFER, ‚MAXZ 


. 
’ 


d 


;: CR/LF 


; CR/LF 


PRINTS 


LOOP: LD 


"1 PCB  MACRO 
File-Control-Block 
Parameter in "..." angeben 
FILE: j 
EXT: 
DRV: 


SETBUF 
setzt Buffer für | 
BUFFER: Daten-Puffer für Record 


MACRO _BUFFER 
String bis $ er Drucker/LST: 


BUFFER: zu druckender String 
; IX-Register wird benutzt! 


LOCAL LOOP,, EXIT 
LD __.. IX,BUFFER 
E, (IX) 
INC IX 

LD A } ngn 

CP E 

JR Z,EXIT 
PRINTC 

JR LOOP 


% 


_ ENDM 


File-Name | 
File-Erweiterung 


LOCAL 
IFB <DRV> 
DB De 
ELSE . 
DB.  DRV-64 
ENDIF 


DB 


DB 


DB 


DB 


DB 
DB 
DB 
ENDM 
"MACRO BUFFER 
File-I/0 


(128 Bytes) 

LD C,26 

LD DE, BUFFER 
CALL  BDOS 

ENDM 





DRV,FILE,EXT 


Drive (leer = akt. Drive) 
FL,FLE,X, XE 


h) 


MAKE 


’ 


File neu eröffnen , ERROR optional 


FCBADR: 


ERROR: Ausgang bei "Disk Full! 


OPEN 


. 
’ 


’ 


F NOTFND: Ausgang bei "File not found' 


vorhand. 
FCOBADR: 


READRC 


’ 





\ P 
5 % ji y - 
2 | | | 
u Gm N 
.! .i 


MACRO FCBADR,ERROR 


Adresse des FEB 
XOR A Be 
LD (FCBADR+32),A 
LUD" + 
LD DE, FCBADR 
CALL BDOS 

IFNB <ERROR> 

CP le Be 





JP NC ‚ERROR ; Disk Full 


ENDIF 
ENDM 


MACRO FCBADR, NOTFND 
File eröffnen, NOTFND opt. 

Adresse des FCB Ar 
XOR Are 
LD (FCBADR+32), A 
LD D,28' un j 
LD3.. DE, FCBADR- 
CALL BDOS 5 

IFNB <NOTFND> 

CP are x 

JP .NC, NOTFND- 


ENDIF 
ENDM 


: 


MACRO FCBADR, EOF 


Read sequ. Record, EOF optional 


FCBADR: 


Adresse des FCB D 
LD Ba 
ID“. DE, FCBADR 
CALL BDOS 
IFNB <EOF> 

CP 1) 

JP NZ,EOF 


EOF: Ausgang bei 'End of Fılor) 


WRITRC | DR 
Write sequ. Record, ERROR optional 


. 
’ 
. 
’ 


FCBADR: 


MACRO 


ENDIF 
ENDM 


_ FCBADR, ERROR 


Adresse des FCB 
DR 
LD ___  DE,FCBADR 
GALL BDOS 


b 
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CLOSE 
; File schließen „ 
‚ FCBADR: Adresse des FCB 


DELETE 
; File löschen, NOTFND optional 
; FCBADR: Adresse des FCB 


IFNB <ERROR> 
CP d 
JP NZ, ERROR 


; ERROR: Ausgang bei 'Disk Full' 


ENDIF 
ENDM 


FCBADR , NOTFND 
NOTFND optional 


MACRO 


C,16 

DE, FCBADR 
BDOS 
<NOTFND> 
4 

NC, NOTFND 


; NOTFND: Ausgang bei 'File not found' 


ENDIF 
ENDM 


MACRO FCBADR, NOTFND 


C,19 

DE, FCBADR 

BDOS 

<NOTFND> 

4 

NC, NOTFND 

; NOTFND: Ausgang bei 'File not found' 
ENDIF 

ENDM 


SAVX MACRO 
; Register retten -> Cache 


EX AF,AF' 
EXX 
ENDM - 


LADX MACRO 
; Register laden <- Cache 


SAVX 
ENDM 


SAVR MACRO X 


; Register auf Stack retten 


‚X: falls nicht leer, auch 


Indexregister retten 


MMU 2.0 
Memory 
Managements 
Utilities 


für die Apple lle 64K-Karte 
DOS 3.3 (und ProDOS) 


von. Stiehl 


1984, Diskette und Manual, DM 98 — 
ISBN 3-7787-1023-1 


Bei der Version 2.0 der MMU’s sind 
die Utilities teilweise so umgeschrie- 
ben worden, daß sie sowohl unter 
DOS 3.3 als auch unter ProDOS lauf- 
fähig sind. Da dies nicht immer mög- 
lich war, sind zusätzlich zu den reinen 
DOS-Hilfsprogrammen, speziell den 
RAM-Disk-Drivern, einige reine Pro- 
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PUSH. 
PUSH 
PUSH 
PUSH 
IFNB 
PUSH 
PUSH 
ENDIF 
ENDM 


LADR MACRO X 
; Register von Stack laden 
; X: falls nicht leer, auch 
Indexregister laden 
IFNB 
POP 
POP 
ENDIF 
POP 
POP 
POP 
POP 
ENDM 


; bedingte Sprünge bei Größenvergleich 

; 8-Bit-Zahlen (ohne Vorzeichen) 

; ADR: Sprungadresse bei erfüllter 
Bedingung 


JLT MACRO ADR. SUPER 
JP C,ADR 
ENDM 
ADR..: JP, 
C,ADR 
Z,ADR 


ADR : JP, 
Z,ADR 
ADR ; JP, 
NZ ‚ADR 


ADR:;5.ER, 
NC, ADR 


ADR ; JP, 
EXIT 
C,EXIT 
Z,EXIT 
ADR 


DOS-Utilities aufgenommen worden. 
Insgesamt enthält die neue „MMU 
2.0“-Diskette über 25 Programme, 
die neue Einsatzmöglichkeiten für die 
Extended 80 Column Card (erweiter- 
te 80-Z-Karte = 64K-Karte für den 
Apple Ile) erschließen. Ein Teil der 
Programme laufen auch auf dem 
Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer ge- 
dacht. 


Im einzelnen umfaßt „MMU 2.0° 


— Drei RAM-Disk-Driver für DOS 
3.3: „INIT 62° benutzt nur die 
64K-Karte als RAM-Disk, „INIT 
78“ benutzt zusätzlich die Mother- 
board-LC als RAM-Karte und 
„DOSMOVER. INIT 62“ gilt für den 
Fall, daß sich das DOS selbst in der 
Motherboard-LC befindet. 


Eine sehr nützliche Pseudo-Co- 
processor-Utility, die das Hin- und 
Herschalten zwischen zwei Pro- 


ENDM 
MACRO DEST, SOURCE ; 
A, (SOURCE) 
(DEST),A 


DEST , SOURCE 
HL, (SOURCE) 
(DEST) ‚HL 


MACRO TAB2,TABl,N 
; N Bytes von TABl -> TAB2 (Inkrement) 
BC,N 
HL,TAB1l 
DE, TAB2 


ENDM 


‚MACRO TAB,N, VALUE 
ab TAB mit 'VALUE' füllen 
LOOP 
HL, TAB 
B,N 
A,VALUE 


(HL) ,A 
HL 
LOOP 


SEARCH MACRO 
; falls vorh. -> FOUND, sonst -> NOTFND 
; FOUND/NOTFND optional 
; HL zeigt ggf. auf gefundenes Byte +1 
HL, TAB 
BC,N 
A,VALUE 


<FOUND> 
PE, FOUND 


<NOTFND> 
PO ,NOTFND 


gramm-Modulen ermöglicht, von 


denen sich das eine Modul auf der 


64K-Karte befindet. 


Zwei schnelle Kopierprogramme 
(für DOS 3.3 und ProDOS). 


Mehrere Move-Programme zum 
Verschieben von Daten auf die 
64K-Karte sowie auf die Language 
Card und umgekehrt. 


Mehrere Hilfsprogramme zum Un- 
tersuchen und Löschen bestimm- 
ter Speicherbereiche der 64K-Kar- 
te und der LC, zur Ermittlung des 
Softswitch-Status usw. 


Zwei Simulator-Programme zum 


Simulieren von Apple II und Apple 
Il Plus auf dem Apple Ile. 


Gerätevoraussetzung: Apple Ile mit 
64K-Karte oder IlIc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 


TAB, N, VALUE, FOUND , NOTFND 
; N Bytes ab TAB nach '"VALUE' durchsuchen 
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Bei der Taktfrequenz von ca. 2 MHz dau- 
ert ein Speicherzyklus ca. 500 nsec 
(= 0.5 x 10 ° sec). Bei den Speicherzy- 
klen sind z. T. „von-bis“-Angaben vorhan- 
den, hier ist die Ausführungszeit von Regi- 
sterinhalten abhängig. Sofern dem Befehl 
ein Adreß- oder 16-Bit- Immediatewert 
folgt, ist dieser im Low/High-Format anzu- 
hängen. Bei den Flags bedeuten: X = Bit 
kann verändert werden; — = Bit wird nicht 
geändert; O0 = Bit wird zu 0 gesetzt; 


Befehle mit 16-Bit-Struktur: 


Operation |Operand— AF |BC DE HL SP IX IY (Adr) Imm/16 |lmpliz. |Flags 8080-M 
Funktion Op/Cy Op/Cy Op/Cy Op/Cy |Op/Cy Op/Cy Op/Cy Op/Cy |Op/Cy |SZ-H-PNC 





HL+Operand+Carry 
HL+Operand 
IX+Operand 

IY+ Operand 

HL- Operand-Carry 
Dekrementieren 
Inkrementieren 


DE <> Operand 
(SP) > Operand 
AF>AF 
Austausch/Cache 


1 = Bit wird zu 1 gesetzt; ? = Bit ist unbe- 
stimmt. 


Unter der Spaltenüberschrift 8080-M sind 
die 8080-Mnemonics eingetragen. — SO- 
fern entsprechende Befehle beim Intel- 
8080 vorhanden sind. Die Mnemonics sol- 
len allerdings nur als grobe Stütze dienen. 
Die Schreibweise der 8080-Befehle 
weicht noch in anderen Details von der 
Z80-Normierung ab. 


ED5A/15 |ED6//15 | ED7A/15 


DD39/15 |DD29/15 


DD2B/10 |FD2B/10 
DD23/10 |FD23/10 


FDE3/23 


Z80-Operationstabelle 


In den Tabellen fehlen die Z80-Befehle, 
die sich auf die Port- und Interrupt-Pro- 
grammierung beziehen. Grund: Die Z80- 
Port-Leitungen sind bei der Softcard nicht 
herausgeführt. In der Standard-Betriebs- 
art sind auch die Interrupt-Befehle nicht 
ausnutzbar. Beim Apple II unter CP/M 
kann man diese beiden Befehlsgruppen 
zunächst vergessen. 


XX?X?X0X 
——- %X?-0X 
-—- X?7-0X 
—- 7X?7-0X 
XXIXXIX 


BC «- Operand 
DE «- Operand 
HL <- Operand 


ED4B/20 
ED5B/20 


FDF9/10 
FD22/20 


ED7B/20 


SP «- Operand 
Adr «- Operand 


ED43/20 : | ED53/20 


DD2A/20 
FD2A/20 


IX <- Operand 
IY = Operand 
Stack > Operand F1/10 |C1/10 
Operand —>Stack F5/11 105/11 


» 2. Operationscode für den gleichen Befehl 


FDE1/14 
FDES/15 





Bedingte/Unbedingte Programmverzweigung: 


Operation | Bedingung > ohne Bed. NZ Z NC C PO BR. P M Flags 8080-M 
Funktion Op/Cy Op/Cy Op/Cy Op/Cy Op/Cy Op/Cy Op/Cy Op/Cy Op/Cy |SZ-H-PNC 


Jump-Call-Return 


CALL/Cbed? 


Unterprogrammsprung®| CD/17 C4/17-10 |CC/17-10 |D4/17-10 |DC/17-10 |E4/17-10 |EC/17-10 |F4/17-10 |FC/17-10 
Dekrem./Sprung NZ? 
Sprungbefehl 
indirekt. Sprung 
indirekt. Sprung 
indirekt. Sprung 
Sprung/kurz? 
Rückspr. aus UP? 


JMP/Jbed?) 
PCHL 


20/12-7 
00/11-5 


38/12-7 


D8/11-5 E8/11-5 





F0/11-5 |F8/11-5 RET/Rbed? 


2) „bed“ ist einer der Schlüssel NZ, Z,NC,C,... 
9 Bei den Cycles ist z.B. in 17-10 die erste Zahl bei erfüllter Bedingung, die zweite Zahl bei nicht erfüllter Bedingung gültig. 
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Befehle mit 8-Bit-Struktur: 


Um die Tabelle nicht zu breit werden zu 
lassen, sind Befehle mit mehr als einem 
Byte Operationscode nach einem beson- 
deren Schema aufgeführt. Beispiel: 


1.) CPD 

a) Spaltenüberschrift ED 

b) Tabelleneintrag AY/16 

Insgesamt: ED A9. Ausführungszeit des 
Befehls: 16 Speicherzyklen 


Operation |Operand — Impliz. IA B C D E (HL) |(BC) \(DE) |(ix+a) IIv+d) imm/s I(Adr) |Flags 
Funktion Op/C Op/Cy \Op/Cy IOp/Cy |Op/Cy |Op/Cy |Op/Cy |Op/Cy \Op/Cy |Op/Cy|Op/Cy|Op/Cy |Op/Cy |Op/Cy |Op/Cy |SZ-H-PNC 


Arithmetik 


A+Operand+Carry 
A+Operand 
A-Operand-Carry 
A-Operand 
Inkrement 
Dekrement 
BCD-Anpass./A 


A:=-A 


A.UND.Operand 
A.XOR.Operand 
A.ODER.Operand 
A-Reg. kompl. 
Vergl. A/Operand 


Vergl./Dekrement 
Blockvergleich — 
Vergl./Inkrement 
Blockvergleich + B1/16-21 


A <- Operand 
B «- Operand 
C «- Operand 
D «- Operand 
E «-- Operand 
H «- Operand 
L «- Operand 
(HL) —- Operand 
(BC) = Operand 
(DE) —- Operand 
Adr «- Operand 


(IX+d) — Operand 
(IY+d) — Operand 
Laden/Dekrement 
Blockversch.— 


Laden/Inkrement 
Blockversch.+ 
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2.) ADCA, (IX+d) 

a) Spaltenüberschrift DDxx+ 

b) Tabelleneintrag 8E/19 

Es steht xx für den 1. Wert unter b), an die 
Stelle von + ist der Offset d einzutragen. 
Für bspw. d=7 erhält man insgesamt: DD 
8E 07. Ausführungszeit beträgt 19 Spei- 
cherzyklen. 

Die Spaltenüberschrift gilt bis zur näch- 
sten Überschrift oder bis zur durchgezo- 
genen Linie. 





XX?X?X0X 
XXXX0X 
XXPXIX1X 
XX7X7X1X 
XX?X?X0- 
XXXX1- 
XXXKXK-X 


XXPXPX1X 


XX?1?X00 
XX?0?X 00 
XX?0?X 00 
-- 71?-1- 
XXPXIX1X 


XXPXX1- 


XXXKX1- 


3A/13 


BR, 
DEEn. ENTER 
a 
BIER. UK. DERRBE 
BEN. 2, ERROR. 
a. eG 
BI. EEE 





8080-M 


ADC/ACI 
ADD/ADI 
SBB/SBI 
SUB/SUI 


MOV/MVI 
MOV/MVI 
MOV/MVI 
MOV/MVI 
MOV/MVI 
MOV/MVI 
MOV/MVI 


47 


Befehle mit 8-Bit-Struktur (Fortsetzung) 


Funktion Op/Cy |Op/Cy lOp/Cy lOp/Cy |Op/Cy IOp/cy IOp/cy IOp/cy lOp/Cy IOp/CylOp/CylOpicy \Op/Cy IOp/Cy |Op/Cy |SZ-H-PNC 


Verschiebe-Befehle 
; CB ICB CB CB DDCB+xx 
Rot. <- Op,9 16/23 XX?707X0X 
Rot. - A,9 ——- ?0?-0X 
Rot. «- Op,8 06/23 XX?70?°X0X 
Rot. —- A,8 —- ?0?-0X 
Rot. > Op,9 1E/23 XX?0?X0X 
Rot. > A,9 -- ?0?-0X 
Rot. —> Op,8 0E/23 XX?0?X0X 
Rot. — A,8 —- 20?-0X 
Shift —- Operand 26/23 XX?0?%X0X 
Shift > Operand 3E/23 XX70?X0X 
Shift arithm. > 2E/23 XX70?X0X 


Rot. - Nibble 6F/ XX?0?%X0- 
Rot. — Nibble XX?0?X0- 
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Test Bit 0 
Test Bit 1 
Test Bit 2 
Test Bit 3 
Test Bit 4 
Test Bit 5 
Test Bit 6 
Test Bit 7 


Setze Bit 0 
Setze Bit 1 
Setze Bit 2 
Setze Bit 3 
Setze Bit 4 
Setze Bit 5 
Setze Bit 6 
Setze Bit 7 


Reset Bit O0 
Reset Bit 1 
Reset Bit 2 
Reset Bit 3 
Reset Bit 4 
Reset Bit 5 
Reset Bit 6 
Reset Bit 7 


Kompl. Carry 
Carry: = 1 
Nulloperation 


?X?1?7?70- 
?X?17?70- 
?X?1?70- 
?X717?70- 
?X71770- 
?X7127?70- 
?X717?70- 
?X71770- 


FAR, SA EHRE: 
EN, 3. NEHM 
EB FR. Hs 
Re, TE, DOEN 
u, 3%, BE 
EBEN, we, VOR 
PR. RE 
BR. NT Ya Wi 


ER.» WERE 
pe, WE 
MURL, 14. RAM 
WER, 1%, SCH 
BUA 5, IRRE 
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Unter Print-Using versteht man die Forma- 
tierung einer Zahl, z.B. die rechtsbündige 
und auf x Stellen nach dem Dezimalpunkt 
gerundete Zahlenausgabe mit einer vor- 
definierten Feldlänge. Da der in anderen 
Basic-Dialekten vorhandene Print-Using- 
Befehl in Applesoft fehlt, wurde ich schon 
wiederholt gebeten, eine kurze und flexi- 
ble Print-Using-Routine zu veröffentli- 
chen. In „Apple Assembler“, S. 192ff., 
war zwar bereits eine Print-Using-Version 
publiziert worden, doch war diese erstens 
auf 1-3 Dezimalstellen begrenzt und au- 
Berdem war das Programm nicht relokativ. 
Das nachfolgende neue PRINT.USING hat 
folgende erweiterte Features: 


1. Die Routine ist völlig relokativ, kann also 
mit einer beliebigen Startadresse in den 
Speicher geladen werden, z.B. 

BLOAD PRINT.USING, A768 

BLOAD PRINT.USING, A$9500 

USW. 


2. Die Routine funktioniert sowohl unter 
Interpreter- wie auch unter Compiler-Ap- 
plesoft. Bei Interpreter-Applesoft erfolgt 
der Aufruf wahlweise mit CALL oder USR, 
bei Compiler-Applesoft (TASC, HAYDEN 
usw.) nur mit USR. CALL hat die Syntax 
CALLA,F,D,N 

und USR die Syntax 

N = USR (N) 


3. Es können 4 Parameter übergeben bzw. 
(bei USR) gepokt werden. Die Buchstaben 
A, F, D und N stehen für Variablennamen, 
die durch beliebige andere Variablenna- 
men sowie durch Formelausdrücke und 
Konstanten ersetzt werden können. 


3.1. A = Anfangsadresse: Diese ent- 
spricht der BLOAD-Anfangsadresse. 


3.2. F= Feldlänge: Die Feldlänge sollte im 
Bereich 11 bis 15 liegen. Wenn z.B. die 
Feldlänge 11 beträgt und eine formatierte 
Zahl, z.B. „123.45“, einschließlich Dezi- 
malpunkt 6 Stellen einnehmen würde, so 
werden 11 minus 6 = 5 Leertasten vor der 
Zahl eingefügt, damit eine Feldlänge von 
11 erreicht wird. Die denkbar längste Zahl, 
nämlich „-1.23456789E-12“, nimmt 15 
Stellen ein; daher die maximale Feldlänge 
15. Bei Nicht-Exponentialzahlen genügt 
eine Feldlänge von 11, weil 
„-1234567.89“ 11 Stellen belegt. Man be- 
achte, daß unter Applesoft die Mantisse 
maximal 9 Stellen einnimmt. Ferner ist ein 
mögliches Minus („-“) sowie ein mögli- 
cher „.“ zu berücksichtigen. Wenn Sie 
wissen, daß die von Ihnen benötigten Zah- 
len einen bestimmten Bereich nicht über- 
schreiten, können Sie die Feldlänge ent- 
sprechend reduzieren, z.B. auf F=3 für 
natürliche Zahlen im Bereich O bis 999. 
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Rechtsbündige Zahlenformatierung 


3.3. D = Dezimalstellen: Die Anzahl der 
Dezimalstellen (empfohlen 1-3) hängt von 
der Feldlänge ab. Ferner muß man berück- 
sichtigen, daß bei mehr als 3 Dezimalstel- 
len oft keine Rundung mehr möglich ist. 
Beispielsweise läßt sich 123456789 nur 
noch „runden“, indem man Nullen an- 
hängt, z.B. „123456789.0000°. Die Run- 
dung erfolgt dadurch, daß die Zahl N zu- 
nächst mit 10 T D multipliziert, dann 0.5 
addiert, dann der Nachkommarest abge- 
hackt und schließlich durch 10 T D geteilt 
wird, also beiN = 123.456 und D = 2: 
123.456 & 100 = 12345.6 

12345.6 + 0.5 = 12346.1 

INT (12346.1) = 12346 

12346 / 100 = 123.46 

PRINT.USING gestattet auch die rechts- 
bündige Formatierung von Ganzzahlen, 
indem man D auf O setzt. 


-3.4. N = Number = Zahl: Dies ist die zu 


rundende Fließkommazahl. 


3.5. POKE A + 1, 1 oder O0: Dies ist das 
FAC-Flag (= Exponentialzahl-Flag). Nach 
POKE A + 1, 1 wird die Zahl N, wenn sie 
sich als Exponentialzahl (mit E, z.B. 1E20) 
nicht runden läßt, trotzdem ohne Rück- 
sicht auf die Feldlänge ausgegeben. Nach 
POKE A + 1, O werden Exponentialzahlen 
unterdrückt und statt dessen durch Leer- 
zeichen ersetzt. Auf diese Weise wird der 
mehrspaltige Ausdruck von Zahlenkolon- 
nen stets korrekt ausgeführt. 


4. CALL-Syntax: CALLA, F,D, N 

A steht für Anfangsadresse, z.B. 768 

F steht für Feldlänge, z.B. 11 

D steht für Dezimalstellen, z.B. 2 

N steht für Number = zu rundende Zahl 


von Ulrich Stiehl 


5. USR-Syntax: N = USR (N) 

N steht für zu rundende Zahl. Der Wert 
von N geht durch Print-Using nicht verlo- 
ren. Die Werte für F und D müssen bei 
USR gepokt werden. Wenn z.B. die An- 
fangsadresse A = 768 beträgt, dann gilt: 
POKE A + 1, FAC-Flag 

POKEA+5,F 

POKEA+9,D 

POKE A + 12, 56 

FAC-Flag, F und D müssen nur einmal 
gepokt werden. Ferner muß der USR-Vek- 
tor gesetzt und durch POKE A + 12, 56 
der Print-Using-Routine mitgeteilt werden, 
daß USR aktiv ist. Da dies alles etwas 
umständlich ist, sollte USR nur bei compi- 
lierten Applesoft-Programmen verwendet 
werden. 


Um PRINT.USING zu installieren, können 
Sie entweder das Maschinenprogramm 
mit BLOAD PRINT.USING laden oder die 
DATA-Statements in das eigene Apple- 
soft-Programm einbauen (siehe PRINT.- 
USING.DATA). Das Demonstrationspro- 
gramm PRINT.USING.DEMO veranschau- 
licht im Detail die Anwendung. 

Die Print-Using-Routine formatiert positive 
Zahlen, die größer/gleich O und kleiner als 
1 sind, in der Form „O.XX“ (hier als Bei- 
spiel 2 Dezimalstellen). Negative Zahlen in 
demselben Bereich werden in der Form 
„-.XX” ausgewiesen. Wer hier die Form 
„-0.XX” wünscht (also „O“ zwischen „-“ 
und „.“), kann die verbesserte und um 
einige Bytes gestraffte Version PRINT.- 
USING.G benutzen, die sich auf der 
Peeker-Sammeldisk befindet. Diese Ver- 
besserung wurde von Harald Grumser 
vorgenommen. 


49 





50 


PRINT.USING.DEMO 


109 
119 
120 
139 
149 
159 
16® 


179 


180 
190 
200 
210 
220 
239 
249 
259 
260 
279 
280 
299 
309 
319 
329 
339 
349 
359 
369 
379 
389 
399 
409 
410 
420 
430 
440 
450 
460 
470 
480 
490 
599 
51® 


REM PRINT.USING.DEMO 

REM A = Startadresse 

REM F = Feldlänge (1-15) 

REM D = Dezimalstellen (P-8) 

REM N = Zahl(enausdruck) 

HOME : PRINT CHR$ (4)"BLOAD PRINT.USING, A"768 
PRINT "PRINT.USING.DEMO'": PRINT : PRINT "1. 
Input.Demo": PRINT : PRINT "2. Random.Demo": PRINT : 
PRINT "3. USR.Demo": PRINT : PRINT "®. Ende": PRINT : 
PRINT 

GET X$: ON X$ = "1" GOTO 198: ON X$ = "2" GOTO 299: 
ON X$ = "3" GOTO ABB: ON X$ < > "Q" GOTO 170: END 
REM Input.Demo 

A = 768 

POKE A + 12,24: REM CLC (sicherheitshalber wegen USR) 
F=11 

D=2 

INPUT "Zahl:";N$: IF N$ = "" THEN END 

N = VAL (N$) 

CALL A,F,D,N: REM Print.Using! 

PRINT " formatiert": PRINT N;" unformatiert" 

GOTO 239 

REM Random.Demo 

Ak= 7@B:f = 19 

POKE A + 12,24: REM CLC (sicherheitshalber wegen USR) 
zZ = 19990 

FORD=5 TO BSTEP -1 

FOR R = 1 TO 199 

N=RN (l) *« Z 

CALL A,F,D,N: REM Print.Using! 

NEXT R: NEXT D 

END 

REM USR.Demo 

REM Vektor $9399=768 

POKE 19,76: POKE 11,0: POKE 12,3:A = 768 

POKE A + 12,56: REM SEC! 

POKE A + 1,9: REM FACFLAG 

POKE A + 5,1®: REM FELDLEN 

Z = - 19000 

FOR D = 3 TO ® STEP - 1 

POKE A + 9,D: REM DEZLEN 

FOR R = 1 TO 199 

N=RND (l) « Z 

N = USR (N): REM Print.Using! 

NEXT R: NEXT D 

END 


PRINT.USING.DATA 


100 REM PRINT.USING.DATA 

110 DATA 169,0,133,252,169,11,133,253,169,2 
120 DATA 133,254,24,176,16,32,76,231,134,253 
130 DATA 32,76,231,134,254,32,190,222,32,103 
140 DATA 221,162,16,160,1,32,43,235,164,254 
150 DATA 132,255,249,7,32,57,234,198,255,298 


169 


DATA 249,165,162,72,70,162,32,169,231,32 


170 DATA 35,236,104,16,3,32,208,238,32,52 


180 
199 
200 
210 
220 
239 
240 
250 
260 
270 
280 
299 
309 
31® 
320 


339 


DATA 237,162,0,189,0,1,2490,61,201,69 

DATA 249 ,30,232,208,244,189,0,1,232,157 

DATA ®,1,202,202,16,245,160,48,201,45 

DATA 240,5,140,0,1,208,220,149,1,1 

DATA 240 ,215,56,165,252,208,6,166,253,32 

DATA 74,249,24,169,16,160,1,32,249,234 

DATA 144,6,32,46,237,24,144,241,96,228 

DATA 254,144,198,249,196,228,253,176,219,164 

DATA 254,240,1,232,138,168,196,253,176,6 

DATA 32,87,219,200,208,246,169,9,157,® 

DATA 1,164,254,240,19,202,202,189,0,1 

DATA 72,169,46,157,0,1,104,232,157,0® 

DATA 1,136,298,237,185,90,1,240,179,32 

DATA 92,219,200,208,245 

RESTORE :A = 768: FOR X = A TO A + 294: READ Y: POKE 
X,Y: NEXT 

F= 11:D = 2:N =SIN (1): CALL A,F,D,N: PRINT : 
"Print.Using installiert" 


PRINT 


Hinweis: 
PRINT.USING läuft unter DOS 3.3 und ProDOS. 


PRINT.USING 


BSAVE PRINT.USING, A768, L295 
BLOAD PRINT.USING mit beliebiger Startadresse 


oo oıvV u AuvDdHe- 


DDDDHr HH HH nn 
N DHF--SOonıv SIT AU DH 0 


Pe Ge Ge Ge Ge ee Ge Se ee a a a Ze u Ze Ze Zee Zu Ze Zee Zu ze ze Ze Zu Zee Ze Ze Ze Zee Ze Ze ZEE ZEE Zu 22 ZU ZEE ZEE ZEE Ze 22 Ze ZU Zu Zu Ze; 





ORG 768 


PRINT. USING 


von U.Stieh1l/28.93.85 


Diese relokative Utility 
mit beliebiger Startadresse 
oder ersatzweise mit 

BLOAD PRINT.USING, A 768 
laden und dann aufrufen mit 


CALL A, F, D, N 


Adresse (z.B. 768) 
Feldlänge (1-15) 
Dezimalstellen (P-8) 
zu formatierende Zahl 


zo» 
nm 


Die Namen der Variablen können 
beliebig gewählt werden. 

Sie sind jedoch durch Kommas 
abzugrenzen. 


FACFLAG 





POKE 768 + 1, 1 ja, ® = nein 
PKE AH+l, 1= ja, ® = nein 


Exponentielle und nicht-rundbare 
Zahlen werden unformatiert 
ausgedruckt, wenn das FACFLAG 
auf 1 gesetzt ist. Andernfalls 
wird das Feld mit Spaces gefüllt. 


Es wird daher ein llstelliges Feld 
empfohlen, da dann meist gerundet 
werden kann. Beispiele: 


F 
F 


11, D 
i11,D 


1 -12345678.9 
9 -.123456789 


D.h. 9stellige Mantisse sowie 

2 weitere Stellen für "-" + "." 

D = 9 ist absoluter Grenzfall 

für N: ® > /N/ <1 

Warnung: Da die Parameter F und D 
nicht auf Legalität überprüft 
werden, "dreht" PRINT.USING "durch", 
wenn F > 15 oder D > 9 und 

D>F- 2 ist. 


PRINT.USING benötigt übrigens 
ca. ®.02 Sek. pro Zahl. 


— m — — — Do [PD 


MINUS EQU $2D ga 
PUNKT EQU $2E a.“ 


NULL EQU $39 ae 

EXPO EQU $45 ‚gu 

* 

FACFLAG EQU $PpßFC ‚252 
FELDLEN EQU $P®FD ‚253 
DEZLEN EQU $PdrFE ‚254 
DEZCNT EQU $pPFF ‚255 

E3 

FAC EQU $PP9D ;-$0BA2 
FACSIGN EQU $9BA2 ‚Signum 
STACKFAC EQU $P199 ;-$O1QF 
FACSAVE EQU $P119 ;-$0114 

* 

MUL1® EQU $EA39 ;N=N#*19 
FADDH EQU $ETA® :N=N+ß.5 
INT EQU $EC23 :N=INT(N) 
NEGOP EQU $EED® ;N=-N 
FOUT EQU $ED34 :N in Stack 
FRMNUM EQU $DD67 :N in FAC 
COMBYTE EQU $E74C ‚Byte in X 
MOVFM EQU $EAFY :MEM->FAC 
MOVMF EQU $EB2B ;: FAC->MEM 


Peeker 11/85 





0309: 
0392: 
0394: 
D306: 
0308: 
D3BA: 


B30C: 
B30D: 


D3PF: 
0312: 
0314: 
0317: 


0319: 
B31C: 


Ö31F: 
0321: 
0323: 


0326: 
0328: 
D32A: 


320: 
032F: 
0331: 


0333: 
0335: 
0336: 
0338: 
B33B: 


B33E: 


18 
B9 


20 


20 
86 


29 
29 


A2 
Ad 
29 


A4 
84 
FO 


20 
c6 
D® 


A5 
48 
46 


20 


68 
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19 


aC E7 
FD 
aC E7 
FE 


BE DE 
67 DD 


19 
1 
2B EB 


FE 
FF 
07 


39 EA 
FF 
F9 


A2 


A2 
Aß E7 
25 EC 


83 
84 
85 
86 
87 
88 
89 
99 
91 


93 
94 
95 
96 


98 
99 
190 
101 
192 
193 
194 
195 
106 
197 
108 
199 
11® 
1ll 
212 
113 
114 
115 
116 
117 
118 
119 
12 
121 
122 
123 
124 
125 
126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 


CHKCOM EQU $DEBE :Komma-Check 
* 

PRNTFAC EQU $ED2E ‚Print FAC 
OUTDO EQU $DB5C ;wie COUT 
OUTSPC EQU $DB57 ‚wie PRBL2 
PRBLK2 EQU $FY4A :X=Blanks 


#*-—— an a nn m an m a m 
%* 

* Parameter für USR festlegen 

%* 


ADRESSE LDA #9 ‚A+l 
STA FACFLAG 
LDA #11 ;A+5 
STA FELDLEN 
LDA #2 ;A+t9 
STA DEZLEN 
%* 
* Wenn SEC, dann USR statt CALL 
* CLC = $18; SEC = $38 (dez. 56) 
* 
USRFLAG CLC ;A+12 
BCS USER 
%* 
* COMBYTE überspringt Komma und 
* wertet die Variablen F und D aus. 
* Danach befindet sich der 
* Wert von F bzw. D im X-Register. 
%* 
JSR COMBYTE ;F 
STX FELDLEN 
JSR COMBYTE ;D 
STX DEZLEN 
%* 
* CHKCOM überspringt Komma. 
* FRMNUM überträgt Wert 
* der Fließkommazahl N in 
* den Floating-Point-Accumulator. 
%* 
JSR CHKCOM 
JSR FRMNUM ;N 
* 
* N = USR (N) 
:*— re 
%* 
* Statt mit CALL A, F, D, N 
* kann PRINT.USING auch mit 
* N= USR (N) 
* aufgerufen werden. 
* Zu diesem Zweck muß 
%* 
* (1) der USR-Vektor auf A gesetzt 
* (B0BA: AC BO 03) und 
* (2) FACFLAG A + 1 (-1l) 
* FELDLLEN A + 5 (1-15) 
* DEZLEN A+ 9 (8-8) 
* USRFLAG A + 12 ($38=dez.56) 
* gepokt werden. 
* 
USER LDX #<FACSAVE ;FAC 
LDY #>FACSAVE ;retten 
JSR MOVMF 


* Integer-Zahl (DEZLEN = ß)? 

* 
LDY DEZLEN 
STY DEZCNT 
BEQ INT ‚Integer 

* 

»x N=N« (10 1!D) 

* 

MULTIPLY JSR MUL1® 
DEC DEZCNT 
BNE MULTIPLY 

%* 

* N = INT (/N/ + 8.5) 

%* 

INT1 LDA FACSIGN 
PHA ‚Save + 
LSR FACSIGN ;N=/N/ 
JSR FADDH ;N=N+9.5 
JSR INT ‚Integer 


N = /N/ plus Signum (+/-) 


*%* %* 


PLA ;Load + 


D33F: 
0341: 


0344: 


0347: 
0349: 
D3AC: 
D3AE: 
0359: 
0352: 
0353: 


0355: 
0358: 
0359: 
B35C: 
B35D: 
B35E: 
0369: 
0362: 
0364: 
0366: 
0369: 
B36B: 
B36E: 


0379: 
0371: 
0373: 


0375: 
0377: 


D37A: 
B37B: 
037D: 
Ö3TF: 
0382: 
0384: 
0387: 
0388: 


D38A: 


B38B: 
B38D: 
Ö3Z8F: 


0391: 
0393: 
0395: 
0397: 


19 
20 


29 


38 


Dp 


A6 
20 


18 
Ag 
A® 
20 
99 
29 
18 
99 


69 


EA 


F® 


E4 
B® 
A4 
Fo 


93 
DO 


54 


011) 
u) 
3D 
45 
lE 


F4 


v1") 
11) 


FC 
d6 


FD 
aA 


FE 


c4 


FD 
DB 
FE 
01 


EE 


ED 


dl 


01 
01 


01 
01 


F9 


EA 


ED 


169 
179 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
219 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
239 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
259 
251 
252 
253 
254 
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BPL STRING 

JSR NEGOP 
* 
* N als String im Stack ablegen 
%* 
STRING 


JSR FOUT ;N->Stack 


* STRLEN = Länge des N-Strings = X 
%* 
STRLENl LDX #® 
STRLEN2 LDA STACKFAC,X 
BEQ ZERO 
CMP #EXPO 
BEQ EXPONENT 
INX 
BNE STRLEN2 ‚stets 
Bei STRLEN < DEZLEN 
N-String nach rechts rücken 
und "ß" voranstellen. 
* Bei Negativzahl NACH "-" 
. 
ADJUST1 LDA 
INX 
STA STACKFAC,X 
DEX 
DEX 
BPL ADJUSTI 
LDY #NULL 
CMP #MINUS 
BEQ ADJUST2 
STY STACKFAC 
BNE STRLEN1 
ADJUST2 STY STACKFACHl 
BEQ STRLENl 


*%*x* %* 


STACKFAC,X 


Entweder Exponentialzahl 
oder Feld zu kurz für N-String. 


”*x* x x 


EXPONENT SEC 
LDA FACFLAG 
BNE FACMOVE2 


‚Carry! 


* 


Nur Spaces ausgeben 


LDX FELDLEN 
JSR PRBLK2 


* 
* Wenn FACFLAG nicht ® ist, 
* dann Exponentialzahl oder 
* nicht in das Feld passende 
* Zahl trotzdem ausgeben. 
* 
* MOVFM ändert nicht Carry-Flag! 
* 
CARRY CLC 
FACMOVE2 LDA #<FACSAVE 

LDY #>FACSAVE 

JSR MOVFM 

BCC FACMOVE3 
FACOUT1 JSR PRNTFAC 

CLC 


BCC FACMOVE2 
* 
* Beim Exit befindet sich N 
* wieder im FAC. 
* 


FACMOVE3 RTS ‚Exit 
. 
* STRLEN < = DEZLEN? 
* Tritt auf für N: Ö>N<1l 
* 
ZERO CPX DEZLEN 

BCC ADJUSTI 


BEQ ADJUSTI 


STRLEN + "." > Feld? 


* 


CPX FELDLEN 
BCS EXPONENT 
LDY DEZLEN 
BEQ INT2 


* 


X=XH+ 1] wegen "." 


91 


92 


INX 

* 

* Feldanfang 

* 

INT2 TXA 
TAY 

SPACES CPY 
BCS 
JSR 
INY 
BNE 

* 


mit Spaces auffüllen 


FELDLEN 
ENDMARK 
OUTSPC 


SPACES 


* Endmarker um 1 nach oben setzen 


%* 

* Beispiel: 

%* 

ENDMARK LDA 
STA 
LDY 
BEQ 


1dde -> 1ßßee 


#300 
STACKFAC, X 
DEZLEN 
FACOUT2 


‚Endmarker 


‚Integer 
Dezimalpunkt einfügen 
Beispiel: lM1ßßee (1x*19®) 
1ßd.e 
18.de 
1.00de (1.99) 
EZPUNKT DEX 

DEX 

LDA STACKFAC,X 

PHA 

LDA #PUNKT 

STA STACKFAC,X 

PLA 

INX 

STA STACKFAC,X 

DEY 

BNE DEZPUNKT 
* 
* Stack bis Endmarker ausgeben 
* 
FACOUT2 LDA STACKFAC,Y 

BEQ CARRY 

JSR OUTDO 

INY 

BNE FACOUT2 


Wie PRINT.USING funktioniert, 
soll anhand der Routinen 

MULTIPLY, ADJUST und DEZPUNKT 
für DEZLEN = 2 (2 Durchläufe) 


205 Bytes 


Für IIc und Ile mit 64K-Karte 


SUPERPLOT 


Double-Hires-Utility 


von Karl-Walter Bott, 1984, Programmdiskette und Manual, DM 48,— 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
Eu 
* 
* 
* 
* 
* 
* 
* 
* 


durch Grenzfälle erläutert 
werden (e = Endmarker) 


Zahl "1": 1 = 190 = "190" 


1lßde N-String 

1®.®e DEZPUNKT 1. Durchlauf 
1.ßde DEZPUNKT 2. Durchlauf 
Zahl "-1": -1 * 190 = "-1@0" 
-1ßße N-String 

-19.de DEZPUNKT 1. Durchlauf 
-1.ßßde DEZPUNKT 2. Durchlauf 
Zahl ".1": .1% 190 = "19" 
l1ße N-String 
Ölße ADJUST . Durchlauf 
. Durchlauf 


ßl.de DEZPUNKT 
d.1ße DEZPUNKT 


Zahl "-.1": —.1 
-1ße N-String 
-1.ße DEZPUNKT 
-.1®e DEZPUNKT 

Zahl ".B1r: mM 
le N-String 
Ble ADJUST 
Ößle ADJUST 
®.Öle DEZPUNKT 

Zahl "-.B1": -.@l 
-le N-String 


-dle 
-®.le DEZPUNKT 1. 


-.ßle DEZPUNKT 2. 


ADJUST 1. 


. Durchlauf 


108 = "_]1g9" 


. Durchlauf 
. Durchlauf 


198 = ]" 


l. Durchlauf 
2. Durchlauf 
Ö®.le DEZPUNKT 1. 
2 


Durchlauf 


. Durchlauf 


* 19® = ı_]" 


Durchlauf 
Durchlauf 
Durchlauf 


Zahl ng. 11) * 199 = "on 


de N-String 


de ADJUST l. 


Ößde ADJUST 2. 
00.®e DEZPUNKT 1. 
d.0ße DEZPUNKT 2. 


Durchlauf 
Durchlauf 
Durchlauf 
Durchlauf 





SUPERPLOT ist eine neue, ungewöhnlich kompakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASCII-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Applesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
also z.B. & HPLOT 500, 100 TO 500, 150 usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 


Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 1 
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Verkaufe neuwertigen Typenrad- 
drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 

plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. 

Fa. Keyboard & Co. 








PEEKER 44 


® AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


I] suche Hardware [] suche Software [] Tausch DU] Verschiedenes 
[] biete Hardware [] biete Software I] Kontakte U] Chiffre 


EENEEEEEEEEBEEBEBEREEBEEBZEERENE 
ENEEEEEEREEEEEREEEEEEEBEEEEENENE 
-_JEHEEBEBEEEREEEEEEEEEENEREEEEEEEE 
BERUENDRENEESDERURESNAEENEN DEREN 
EERNEEEEEEEREEEEEEEEEENEREEEEEEENE 
EEEEEEEREEREEEEEEREREEEBEERENBEE 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 


DEEKER 44 


Zu der in »peeker«, Heft ‚ Seite 
J Anzeige [| Produktbesprechung 














erschienenen 








über 








bitte ich um detaillierte Information. 
Ich wünsche [|] Prospekt, Datenblatt _] Preisliste [| schriftliches Angebot || tel. Rückruf 


Produkt und Bestellnummer a DM |gesamt DM 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 








Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


DEEKER 44 


Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 
Aufsätzen in »peeker« haben: 




















Bitte veröffentlichen Sie den um- 
stehenden Text von Zeilen 
DM in der nächsterreich- 
aren Ausgabe von »peeker« 












Aa 
b 








Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 


Unterschrift 





© Karte bitte vollständig ausfüllen 


Vorname, Name 


Telefon mit Vorwahl 


Anschrift der Firma angeben, bei der Sie 
bestellen bzw. von der Sie Informationen 
wünschen 





» Karte bitte vollständig ausfüllen 





z 
: 
I nn... 
=) 
Oo” 
& 
“= 


ANTWORTKARTE 


peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Firma 


Straße 


PLZ/Ort 


POSTKARTE 


peeker 
Redaktion 


Postfach 10 2869 
6900 Heidelberg 1 


IV 





Produkt- 





Karte 


Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 


Nichts einfacher als 
das. 

Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorher aber nicht 
vergessen: 

kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrage. 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 





5 MAGAZIN FÜR APPLE-COMPUTER 





Referenztest 


Zeilenverweise in Applesoft-Programmen 


von Ludger T. Engbert 


Bei der Entwicklung umfangreicher Ap- 
plesoft-Programme mit vielen Zeilenver- 
weisen (GOTO, GOSUB) ist es z.T. 
schwierig nachzuvollziehen, ob alle Refe- 
renzen erfüllt sind. Manche „UNDEFINED 
STATEMENT“-Meldung erscheint erst 
nach längerem Gebrauch, weil ein selten 
benutzter Programmteil beim Test nicht 
berücksichtigt wurde. 

Abhilfe schafft das Programm REF.TEST, 
das alle Zeilenverweise verifiziert und 
Sprünge auf nicht existierende Zeilen an- 
zeigt. Dabei werden nicht nur alle GOTO- 
und GOSUB-Befehle überprüft, sondern 
auch Zeilennummern nach THEN sowie 
Aufzählungen (z.B. ON I GOSUB 100, 
200, 300) berücksichtigt. 
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Erläuterung zum Programmablauf 


Beim ersten Aufruf durch „BRUN REF.- 
TEST“ wird der Ampersand-Vektor initiali- 
siert, wodurch die Routine immer wieder 
durch Eingabe von „&“ gestartet werden 
Kann. 

Beim eigentlichen Aufruf wird zunächst 
der aktuelle Textpointer gesichert, da die- 
ser von LINGET (s.u.) bei der Auswertung 
der Zeilennummer benötigt wird. 

Einer Applesoft-Programmzeile sind im- 
mer 4 Bytes vorangestellt: Die ersten bei- 
den Bytes enthalten einen Zeiger auf die 
nachfolgende Programmzeile, die näch- 
sten beiden Bytes beinhalten die Zeilen- 
nummer (Low-Byte zuerst). 

Die Routine NXTLIN (Next Line) testet, ob 
das Programmende erreicht ist. In diesem 
Fall sind beide Link-Bytes Null (Das Low- 
Byte kann unabhängig vom Programmen- 
de Null sein). Wurde das Programmende 
erreicht, wird nach END gesprungen, um 
den Textpointer wieder herzustellen. An- 
dernfalls überträgt das Programm die der- 
zeitige Zeilennummer nach CURLIN (Cur- 
rent Line). 

Die Routine NXTBYT (Next Byte) testet 
das Zeichen, auf das der Textpointer zeigt. 
Im Falle, daß es sich um 

GOTO, 

GOSUB oder 

THEN, gefolgt von einer Ziffer 

handelt, wird die Routine LINE? abgear- 
beitet, die überprüft, ob eine entsprechen- 
de Zeile im Applesoft-Programm existiert. 
Ist dieser Test negativ, wird ein Fragezei- 
chen, die gesuchte Zeile und die Zeilen- 
nummer der fehlerhaften Anweisung aus- 
gegeben. 

In jedem Fall wird in der Routine FOUND 
getestet, ob nach der derzeitigen Zeilen- 
nummer ein Komma folgt. Auch diese wei- 
teren Zeilennummern werden von der 
Routine LINE? untersucht, bis kein weite- 
res Komma mehr folgt. 
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Erklärung der aufgerufenen 
Applesoft-Routinen 


CHRTST - (Character test) testet das Zei- 
chen (Character) im Akku. Handelt es sich 
dabei um eine Ziffer ($30-$39), so wird 
das Carry-Flag gelöscht. Bei End-of- 
Statement ($00 oder „:“) wird das Zero- 
Flag gesetzt. 

FNDLIN - (Find Line) durchsucht den BA- 
SIC-Programmtext nach der Zeilennum- 
mer, die in LINNUM ($0050, $0051) abge- 
legt ist. Existiert die Zeile, wird das Carry- 
Flag gesetzt. 

LINGET - (Line Get) wertet den Ausdruck 
(Zahl als ASCII-Folge), auf den der Text- 
pointer ($00B8, $00B9) verweist, aus und 
trägt das Ergebnis in LINNUM ($0050, 
$0051) ein. Beim Einsprung müssen Akku 
und Carry-Flag durch CHRGET (bzw. 
CHRTST) initialisiert sein. 

CRDO - (Carriage Return do) sendet ein 
CR zum aktuellen Ausgabegerät. 

OUTSP - (Out Space) gibt ein Leerzei- 
chen ($20) aus. 

OUTQST - (Out Question Mark) gibt ein 
Fragezeichen ($3F) aus. 

LINPRT - (Line Print) gibt die Zahl dezimal 
aus, die sich im Akku (Low-Byte) und X- 
Register (High-Byte) befindet. 
Kurzhinweise 

1. Zweck: 

Hilfsprogramm zur Überprüfung von Zei- 
lenverweisen 

2. Konfiguration: 

Apple II+, Ile, IIc; wahlweise DOS 3.3 
oder ProDOS 

3. Test: 

BRUN REF.TEST 

Beliebiges Applesoft-Programm laden 

& 


4. Sammeldisk: 
MEF.TEST - 
(Maschinenprogramm) 
T.REF.TEST 
(Big-Mac-Quelltext) 
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REF.TEST 


309: 
0392: 
0305: 
0397: 
D3BA: 
B39C: 
Ö3OF: 


0319: 
0312: 
0313: 
0315: 
0316: 
0318: 
D31A: 
B31C: 
Q31E: 


0329: 
0323: 
0326: 
0328: 
032B: 
B32D: 
0339: 


0332: 
0335: 
0337: 


0339: 
033B: 
033D: 
B33F: 
0341: 
0343: 
0345: 
0347: 
0349: 
B3AC: 


Ö34E: 
0351: 
0352: 
0355: 
0358: 
D35A: 
035D: 
Ö35F: 


A9 AC 
8D F5 
Ag 19 
8D F6 
A9 03 
8D F7 
69 


20 88 


20 DC 
20 1A 
B®ö 1D 
20 5A 


A6 59 


d3 
d3 
03 


03 
03 


93 
03 


03 


v1) 


03 


DA 
D6 


DB 


oo oıoVu um m 


KRRFRTRTTHTTT 


zeigt alle 


“*RKKKKKK KK KR 


REF.TEST 
Applesoft-BASIC- 
Utility 
UNDEFINED STATEMENTS 


L.T. Engbert, Jan. 84 


„»RrAkKK Kr KK 


KRERRTTI 


“ 


* BSAVE REF.TEST, A$300, L$93 


* 


* Installieren mit BRUN REF.TEST 
* Aufruf mit "&" 


* 


ORG 
LINNUM EQU 
TXTTAB EQU 
CURLIN EQU 
TXTPTR EQU 
CHRTST EQU 
AMPER EQU 
FNDLIN EQU 
LINGET EQU 
CRDO EQU 
OUTSP EQU 
OUTQST EQU 
LINPRT EQU 


$300 


$59 
$67 
$75 
$B8 
$BA 
$3F5 
$D61A 
$DABC 
$DAFB 
$DB57 
$DB5A 
$ED24 


*%* Ampersand-Vektor auf x#%* 
*%* Programmanfang setzen x*% 


LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#$4C 
AMPER 
#<REFS 
AMPER+1 
#+>REFS 
AMPER+2 


;JMP 
;&-Adresse 


;Lo-Byte 


;Hi-Byte 


*%* Melde UNDEFINED STATEMENTS x*% 


REFS LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
BNE 


NXTLIN 
NXTLINI 


JSR 
JSR 
BEQ 
JSR 
STA 
JSR 
STA 


NXTBYT JSR 
NXTBYT1 CMP 
BEQ 


CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDY 
LDA 
JSR 
BCS 


JSR 
CLC 
JSR 
JSR 
BCS 
JSR 
LDA 
LDX 


LINE? 


TXTPTR 
TXTPTR+1 


TXTTAB 
TXTPTR 
TXTTAB+1 
TXTPTR+1 
NXTLIN1 


BYTGET 
BYTGET 
END 
BYTGET 
CURLIN 
BYTGET 
CURLIN+1 


BYTGET 
#309 
NXTLIN 


#+$AB 

LINE? 

+$B 

LINE? 

#+$C4 
NXTBYT 

+] 
(TXTPTR),Y 
CHRTST 
NXTBYT 


BYTGET 


LINGET 
FNDLIN 
FOUND 
OUTQST 
LINNUM+1 
LINNUM 


;‚ TXTTAB 
> 
; TXTPTR 


‚unbedingt 

; Lo-Link 
‚Hi-Link 
‚Programmende 


;Lo-Line# 


;Hi-Line# 


; GOTO 
; GOSUB 
; THEN 


‚nein 


‚Ziffer? 
‚nein 


‚wenn gefunden 


LINPRT 
OUTSP 
OUTSP 
OUTSP 
CURLIN+1 
CURLIN 
JSR LINPRT 
JSR CRDO 

LDY #9 

LDA (TXTPTR),Y 
CMP #',' 

BEQ LINE? 
BNE NXTBYTl 


LDA 
LDX 


‚Line Feed 


‚Aufzählung? 


*%* Routine abschließen *%* 


END PLA 
STA 
PLA 
STA 
RTS 


TXTPTR+1 


TXTPTR 


*%* Zeichen aus Programm holen *%* 


0388: BYTGET INC 
D38A: BNE BYTGETI 
B38C: INC TXTPTR+1 
Q38E: BYTGETl LDY #9 

039P: LDA (TXTPTR),Y 
0392: RTS 


TXTPTR 


147 Bytes 


Die ProDOS-Analyse 


Version 1.0.1, 1.0.2, 1.1.1 


von Arne Schäpers 


1985, ca. 480 S., kart., 
DM 68,— 
ISBN 3-7785-1134-3 


„Die ProDOS Analyse“ ist die umfangreichste und detail- 
lierteste Darstellung, die jemals ein Apple-Betriebssystem 
erfahren hat. Wer die „Innereien“ von ProDOS bis zum 
letzten Byte, z. T. bis ins letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das komplette Betriebssystem (Urla- 
der, MLI, Disk-Driver, RAM-Disk-Driver und Uhr-Routine) 
mit Ausnahme des BASIC-SYSTEM wird mit umfangrei- 
chen Kommentaren und Übersichtstabellen disassem- 
bliert. Dabei werden alle bisherigen Versionen von 1.0.1 
bis 1.1.1 berücksichtigt. „Die ProDOS-Analyse” be- 
schreibt erstmals auch mehrere Programmierfehler, die bis 
in die neueste Version zu finden sind. Auch die nicht im 
„Technical Reference Manual“ aufgeführten Eigenschaften 
von ProDOS werden analysiert und beschrieben, z. B. die 
vertrackten eingebauten Testroutinen zur Identifikation der 
verschiedenen Apple-Il-Modelle und eventueller Nachbau- 
geräte. Programmierer, die ProDOS versionsabhängig 
„patchen“ möchten, erhalten hier den genauen Überblick, 
wo was geändert werden muß, damit dies keine negativen 
Konsequenzen hat. Durch die minutiöse theoretische Se- 
zierung von ProDOS eröffnen sich völlig neue program- 
mierpraktische Perspektiven. 


Dr. Alfred Hüthig Verlag 
6900 Heidelberg - Postfach 102860 
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prscal 4 


Tıps und Tricks 
ın Pascal 


Teil 4: Die Compiler-Optionen 


Ein mächtiges Werkzeug zur Programm- 
Optimierung stellen die Compiler-Optio- 
nen dar. Aber nicht nur zur Optimierung 
kann man sie gebrauchen, manche Kon- 
struktionen werden durch sie erst möglich. 
Wer glaubt, er kenne alle Optionen genau, 
der sollte trotzdem weiterlesen, denn in 
diesem Artikel werden viele erstaunliche 
Tatsachen ans Licht gelangen, die man 
weder in den Handbüchern noch in ande- 
ren Artikeln finden kann. 

Eine Compiler-Option tritt bekanntlich in 
einem Pascal-Programm in einer Kom- 
mentarklammer mit nachfolgendem „$“ 
auf, also z.B. (*«$G+x*) oder {$G+}. 
Trifft der Compiler auf eine solche Option, 
wird ein spezieller Zustand eingenommen, 
in dem man z.B. ein um ein „Goto“ erwei- 
tertes Pascal benutzen kann. Eine Option 
besteht meistens aus einem, manchmal 
auch aus mehreren Buchstaben mit einem 
darauf folgenden Parameter. Mehrere Op- 
tionen können mit Kommata getrennt wer- 
den, wenn der Parameter der Option kein 
Filename ist. Ein Leerzeichen zwischen 
dem „*“ und dem „$“ ist nicht erlaubt, 
ebensowenig wie zwischen der Option 
(z.B. „G“) und dem Parameter (z.B. „+“). 
Genug zur Syntax, diese kann auch in den 
Handbüchern nachgelesen werden. 

Die Compiler-Optionen werden in alpha- 
betischer Reihenfolge mit konkreten Bei- 
spielen erklärt. 


1. C - Die Comment-Option 


Die C-Option kann benutzt werden, um 
einen Kommentar in den übersetzten 
Codefile zu bringen. Die Zeichenkette, die 
auf „C“ folgt, wird in Block O des Codefiles 
geschrieben. Dafür sind genau 80 Bytes 
reserviert. Da es sich hierbei um einen 
String handelt, darf eine Länge von 79 
Zeichen nicht überschritten werden (das 
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erste Byte eines Strings beinhaltet die 
Länge). Die Option hat z.B. folgendes 
Aussehen: 


(*xC von Dieter Geiß, 5. August 1985) 
Die Leerzeichen, die direkt hinter dem 
„C“ stehen, werden nicht übernommen. 
Die Option muß in der äußersten stati- 
schen Ebene auftreten, also im Hauptpro- 
gramm, sonst wird der Fehler 194 („Com- 
ment must appear at top of program“) 
ausgegeben. Warum das so ist, soll für 
interessierte Leser ebenfalls erklärt 
werden. 

Beim Übersetzen von Programmen wird 
vom Compiler eine dynamische Symbol- 
tabelle angelegt. In jeder Prozedur, die im 
Hauptprogramm oder in anderen Prozedu- 
ren auftritt, können dabei lokale Konstan- 
ten, Typen und Variablen erklärt werden. 
Diese sind außerhalb der Prozedur, in der 
sie definiert wurden, nicht mehr bekannt 
(Blockstruktur). Ist also die Übersetzung 
einer Prozedur beendet, kann der Com- 
piler den Teil der Symboltabelle freigeben, 
in der die lokalen Größen der Prozedur 
definiert waren. Da die Symboltabelle auf 
dem Heap liegt, kann der Compiler leicht 
diesen Teil mit einem Release-Aufruf frei- 
geben. Unglücklicherweise reserviert sich 
der Compiler aber oben auf dem Heap 
auch Platz für den String, der bei der C- 
Option erzeugt wird. Würde also kein Feh- 
ler 194 auftreten, wäre der String verloren, 
wenn die Option innerhalb einer Prozedur 
erklärt wurde. 

Leider hat sich beim Compiler der Pascal- 
Version 1.2 ein Fehler eingeschlichen, der 
beim 1.1-Compiler noch nicht vorhanden 
war. Wenn der Compiler den Kommentar, 
der durch die C-Option erzeugt wurde, in 
den Codefile kopiert, dann vergißt er das 
Längenbyte des Strings, was zur Folge 
hat, daß der erste Buchstabe als Längen- 
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byte interpretiert wird und dieser Buchsta- 
be dann im Codefile fehlt. Läßt man sein 
Programm oder seine Unit mit dem auf der 
APPLES3-Diskette befindlichen LIBMAP- 
Programm ausgeben, so wird auf jeden 
Fall nicht der String ausgegeben, den man 
durch die C-Option eingegeben hat. Die- 
sen Fehler kann man durch ein vorange- 
stelltes „O“ beheben. „O“ hat den ASCII- 
Wert 79 (maximale Länge des Comment- 
Strings), also z.B. 
(*«$CO von Dieter 
1985) 

Das Längenbyte hat dann zwar immer die 
Länge 79, was aber nichts ausmacht, da 
die restlichen Bytes des Strings mit ASCII 
NUL aufgefüllt werden. 


Geiß, 5. August 


2. D - Die Debugger-Option 


Diese Option wird in keinem Handbuch 
erklärt, da in der UCSD-Version II.1 (Apple 
Pascal 1.1 und 1.2) kein Debugger imple- 
mentiert ist. Nichtsdestoweniger soll die 
Wirkung dieser Option erklärt werden. Ein- 
geschaltet wird die Option mit («$D-+x), 
abgeschaltet mit (*«$D-x). Ist die Option 
eingeschaltet, so nimmt der Compiler an, 
daß das Programm mit einem Debugger 
untersucht wird. In jeder Zeile, die über- 
haupt Code erzeugt (also keine Kommen- 
tarzeilen), wird ein P-Code-Befehl BPT 
(Breakpoint) mit einem anschließenden 
Big-Parameter erzeugt. Dieser Parameter 
gibt die Zeilennummer des Quellcodes an, 
in dem sich der Breakpoint befindet. Ein 
Debugger kann dann sogar die Zeilen- 
nummer im Quellcode angeben, in dem 
ein Breakpoint gesetzt wurde, obwohl nor- 
malerweise ein Pascal-Programm nicht 
zeilenorientiert ist. Damit der Programmie- 
rer sehen kann, wo seine Breakpoints ge- 
setzt sind, wird in einem Compiler-Listing, 
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das durch eine L-Option (s.u.) erzeugt 
werden kann, der die Prozedur-Nummer 
und Verschachtelungstiefe trennende 
Doppelpunkt durch einen Stern ersetzt. 
Beispiel (bitte übersetzen lassen): 
(x$D+,Q+,L#1:x) 
program test; 
begin 

repeat 

until false 
end. 


3. E - Die Extended-File-Option 


Warum diese Option in keinem Handbuch 
zu finden ist, ist verwunderlich, da sie 
recht brauchbar ist. Eingeschaltet wird sie 
mit (*«$E+x), abgeschaltet mit (*x$E-x*). 
Um deren Wirkung zu erklären, muß etwas 
weiter ausgeholt werden. Es geht um die 
Definitionen von Files. Jedesmal, wenn 
der Programmierer in seinem Programm 
einen File definiert, also z.B. mit 

var F: file; 

wird dieser vom Compiler in einer speziel- 
len Liste eingetragen. Bevor der Code für 
eine Prozedur erzeugt wird, in der Files 
definiert wurden, wird vom Compiler Code 
eingefügt, um diese Files zu initialisieren. 
Dies ist nötig, da es verschiedene Arten 
von Files gibt (Interactive, Text, Untyped, 
Structured), aber alle Files die gleiche in- 
terne Datenstruktur haben (File Informa- 
tion Block). Diese Initialisierung kann vom 
Programmierer nicht unterbunden werden. 
Außerdem erzeugt der Compiler Code am 
Ende einer Prozedur, um alle Files wieder 
zu schließen. Dies ist für den Fall gedacht, 
daß der Programmierer es vergessen soll- 
te. Es wird also ein implizites „close (nor- 
mal)“ durchgeführt. Würden Files nicht 
geschlossen werden, so würden sie auf 
Diskette als nicht geschlossene Files ste- 
hen, deren Jahr im Filedatum 100 beträgt, 
also eine illegale Zahl. Auf diese Files kann 
dann nicht mehr richtig zugegriffen wer- 
den (siehe auch „Pascal-Directory unter 
der Lupe“, Peeker 1/85, Seite 65, Ab- 
schnitt Daterec). 

Das oben Dargelegte ist auch der Grund, 
warum in den „Units“ keine privaten Files 
definiert werden dürfen: Die implizite 
Close-Anweisung käme zu früh, da der 
Initialisierungsteil einer „Unit“ nur einmal 
durchlaufen wird. Der Fehler 191 („No 
private Files“) tritt auf, wenn ein File ent- 
weder im Implementierungsteil einer Unit 
oder in einer Prozedur der Unit lokal erklärt 
wurde. Wird er im Interface-Teil definiert, 
so wird bei dem Programm, das diese Unit 
benutzt, der Code für Initialisierung und 
Schließen des Files eingefügt. 

Will man nun aber doch private Files in 
einer Unit definieren, so hält einen nichts 
davon ab, wenn man ein (x$E+x) in 
seinen Quelltext einfügt. Dann tritt kein 
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Fehler 191 mehr auf, dafür wird aber mehr 
Verantwortung auf den Programmierer ab- 
gewälzt. Nach wie vor wird zwar Code für 
das Initialisieren der Files erzeugt, nicht 
jedoch für das Schließen. Dies muß dann 
der Programmierer übernehmen. Private 
Files werden z.B. in der neuen von mir 
erstellten „TurtleGraphics“ benutzt, um 
Zeichensätze zu laden und Hires-Bilder zu 
laden und zu speichern. Ein Beispiel für 
private Files ist in Listing 1 gezeigt. 


4. F- Die Bytes-Flipped-Machine- 
Option 


Wer sich beim Konfigurieren seines Sy- 
stems mit Hilfe des Programms SETUP- 
.CODE auf der APPLE3-Diskette Gedan- 
ken darüber gemacht hat, was die Frage 
„Has Byte Flipped Machine“ zu bedeuten 
hat, findet hier die Antwort. 

Die P-Maschine ist ein Pseudo-Maschine, 
die praktisch auf jedem Rechner mit einem 
beliebigen Prozessor emuliert werden 
kann. Nun zerfällt nicht bei jedem Prozes- 
sor die Adresse eines Bytes im Speicher 
in zwei 8-Bit-Komponenten, die sich in der 
Reihenfolge Low-High im Speicher befin- 
den müssen. Das Format könnte genauso- 
gut im High-Low-Format vorliegen. Beim 
6502 folgt auf einen JMP-Befehl z.B. im- 
mer zuerst der niederwertige Teil der 
Sprungadresse, dann der höherwertige 
Teil. Beim 68000 ist dies nicht der Fall. 
Eine Adresse wie z.B. $O0OFF3020 steht 
auch in dieser Reihenfolge im Speicher. 
Um nun Programme für Maschinen zu er- 
stellen, die ihre Adressen im High-Low- 
Format haben, wurde die F-Option entwik- 
kelt. Schaltet man die Byte-Flipped-Machi- 
ne-Option mit (*#$F+x) ein, so wird 
Code erzeugt, der nur auf den entspre- 
chenden Maschinen ablaufen kann. Beim 
6502 muß diese Option ausgeschaltet sein 
(*$F-x), was der Normalzustand beim 
Compilieren ist. Laßt man sein Programm 
mit eingeschalteter Option übersetzen, so 
läuft es garantiert nicht mehr, da bei jeder 
Prozedur die Werte von Enter-IC, Exit-IC, 
Parameter-Size, Data-Size und die Jump- 
Table falsch interpretiert werden. 


5. G - Die Goto-Option 


Um zu verhindern, daß Programmierer die 
im Pascal-Sprachschatz enthaltene Goto- 
Anweisung verwenden, wird vom Com- 
piler die Goto-Option auf (*x$G-x*) ge- 
stellt, also abgeschaltet. Die Verwendung 
von unbedingten Sprüngen ist normaler- 
weise in Pascal, das eine Vielzahl von 
Anweisungen kennt, die den Programm- 
fluß steuern, nicht nötig. Die Benutzung 
einer Goto-Anweisung zeugt von schlech- 
tem Programmierstil und wird manchmal 
von BASIC-Programmierern benutzt, die 


mit der Pascal-Programmierung anfangen 
und noch nicht alle Anweisungen kennen 
oder eben einen Spaghetti-Code erzeu- 
gen wollen. 

In Ausnahmefällen mag es angebracht 
sein, ein Goto zu benutzen, um aus einer 
tief verschachtelten Struktur entfliehen zu 
können. In diesem Fall setzt man ein 
(*«$G+x) in sein Programm, sonst erhält 
man Fehler 6 („Illegal Symbol“). 


6. I - Die //O-Checking- und Include- 
File-Option 


Die I-Option wird in zwei Unteroptionen 
unterteilt. Die I/O-Checking-Option wird 
durch die Parameter +/-, die Include-File- 
Option durch einen Filenamen erkannt. 

a) Nach jeder File-I/O-Operation, mit Aus- 
nahme der direkten Unit-l/O-Operationen 
wie UNITREAD und UNITWRITE, also 
nach jedem READ, WRITE, RESET, 
CLOSE, SEEK, GET, PUT etc., wird vom 
Compiler der Code $9E $00 (CSP IO- 
TEST) hinter die Operation gesetzt. Tritt 
bei einer I/O-Operation ein Fehler auf, so 
unterbricht der Interpreter den normalen 
Programmablauf und ruft die Exec-Error- 
Prozedur des Pascal-Systems auf, die ei- 
ne entsprechende Fehlermeldung ausgibt. 
Will man dies unterbinden, so kann man 
das Einschieben des Codes für das I/O- 
Checking verhindern, indem man (x$I-x) 
in sein Programm einfügt. Dann sollte man 
auftretende Fehler aber selbst abfangen, 
weil sonst nicht vorhersehbare Dinge pas- 
sieren könnten (Schreiben auf einen un- 
geöffneten File usw.). Listing 2 zeigt eine 
Möglichkeit der Benutzung der I-Option. 
b) Wenn ein Programm so lange wird, daß 
der Text nicht mehr in einem File unterzu- 
bringen ist, muß man das Programm in 
mehrere Teile aufspalten. In einem Haupt- 
teil, den man dann übersetzen läßt, veran- 
laßt man den Compiler, einen anderen 
Textfile zu übersetzen, bevor er im Haupt- 
file weitermachen soll. Man erreicht dies 
durch die Angabe von (x$IFilenamex), 
wobei „Filename“ der Name des Files ist, 
welcherandieser Stelleeingeschoben wer- 
den soll. Beispiel: 

Program Test; 

(*x$| DECL.TEXTx«) 

(*x$| PROCS1.TEXTx) 

(*$| PROCS2.TEXTx) 

begin 

end. 

Das Suffix „.TEXT“ ist nicht nötig, der 
Compiler hängt es automatisch an. Ver- 
schachtelte Include-Files sind nicht mög- 
lich. Ebenso ist es nicht möglich, Include- 
Files im Interface-Teil einer Unitzuerklären. 
Dies liegt daran, daß der Interface-Teil 
blockweise in den Codefile kopiert wird. 
Eine Unterbrechung durch einen Include- 
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File mitten im Block erzeugt deswegen den 
fatalen Fehler 406 („Include Filenotlegal“). 
Wenn man Include-Files benutzt, sollteman 
auch auf ein anderes Phänomen achten. 
Jedesmal, wenn ein File geöffnet wird, also 
auchbei der I-Option, muß das Directoryder 
entsprechenden Diskette eingelesen wer- 
den. Dieses benötigt knapp zwei K und wird 
immer auf den Heap eingelesen. Hat der 
Compilernurnoch etwa 1000 Wörter Platzin 
der Symboltabelle, so steigt er mit einem 
unrühmlichen „Stack Overflow“ aus. Um 
dies zu verhindern, sollte man auf der 
Diskette, die den Compiler enthält, einen File 
„machen“ (M(ake vom Filer aus), der den 
Namen SYSTEM.SWAPDISK hat und vier 
Blöcke lang sein sollte. Wird dann der 
Include-File geöffnet, wird zuerst ein Teil 
des Heaps auf diesen File geschrieben, 
bevor das Directory eingelesen wird. Dies 
übernimmt, nichtwie im Handbuch angege- 
ben, der Compiler, sondern geschiehtinder 
Prozedur Fopen (entspricht Reset) im SY- 
STEM.PASCAL. Nach dem Öffnen des 
Files wird der Heap wieder auf den ur- 
sprünglichen Zustand gebracht, indem des- 
sen Inhalt wieder aus dem File SYSTEM. 
SWAPDISK eingelesen wird. 


7. L- Die List-Option 


Um ein ausführliches Listing eines Pro- 
gramms zu erzeugen, welches vorallem zur 
Fehlersuche benutzt werden kann, muß 
man die L-Option benutzen, die wie die |- 
Option zwei verschiedene Arten von Para- 
metern kennt. 

a) («$L+x) erzeugt einen Listing-File mit 
dem Namen  „x*SYSTEM.LST.TEXT“. 
(*$L-*) schaltet die Ausgabe eines Li- 
stings aus, ein nachfolgendes (*x$L+x) 
wieder ein. 

b) (x$L Filenamex) erzeugt einen Listing- 
File mit dem Namen „Filename“. Ein 
Beispiel wäre (x$L LIST.TEXTx). Das 
„. TEXT“ braucht nicht angehängt zu wer- 
den, dies übernimmt der Compiler. Auch 
hier kann man mit (*x$L-*) die Ausgabe 
wieder abschalten, durch ein darauffolgen- 
des (*$L+x) auch wieder einschalten. 
Das Listing geht dann wieder auf den zuerst 
angegeben Namen „Filename“. Es gibt nur 
einen Listing-File pro Übersetzungslauf. 
Der Filename kann auch ein Gerät sein, wie 
z.B. PRINTER:, so daß ein (x$L PRIN- 
TER:x) ein Listing auf den Drucker ausgibt, 
ein («$L CONSOLE:x) ein Listing auf den 
Bildschirm. 

DasListing hatverschiedene Spalten. Inder 
ersten steht die Zeilennummer, dann die 
Segment-Nummer, die Prozedur-Nummer 
(vor dem Doppelpunkt bzw. dem „x“), die 
Befehlsverschachtelungstiefe (hinter dem 
Doppelpunkt bzw. dem „x“) und schließ- 
lich der Wort- oder Byte-Offset innerhalb 
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der Prozedur und der Quelltext. Erscheint 
anstelle der Verschachtelungstiefeein „D“, 
so gibt der Wort-Offset die Stelle des Spei- 
cherplatzes der Variablen an (relativ zum 
Markstack), ansonsten gibt der Byte-Offset 
das Codebyte des Befehls innerhalb einer 
Prozedur an. Mit diesen Werten kann ein 
Laufzeit-Fehler sicher gefunden werden. 
Ein Beispiel ist in Listing 3 gegeben. 


8. N - Die Noload-Option 


Normalerweise werden Units, die von ei- 
nem Programm benutzt werden, nach dem 
Starten des Programms sofort geladen und 
bleiben im Speicher, bis das Programm 
beendet ist. Um dies aus Speicherplatz- 
gründen zu verhindern, muß man ein 
(*$N+x) direkt hinter das „begin“ einer 
Prozedur oder des Programms gestelltwer- 
den. Dann werden Units wie Segment- 
Prozeduren behandelt, d.h. siewerden aus- 
gelagert und erst dann geladen, wenn eine 
Prozedur dieser Unit aufgerufen wird. 


9. NS - Die Next-Segment-Option 


Die Segment-Nummer des Hauptpro- 
gramms ist 1, der ersten Segment-Proze- 
dur oder der ersten normalen (Nicht-Intrin- 
sic-)Unit ist 7. Weitere Segment-Nummern 
werden vom Compiler iin aufsteigenderRei- 
henfolge vergeben, d.h. nach 7 kommt 8 
usw. bis 31 (Pascal 1.1) bzw. 63 (Pascal 
1.2). Nehmen wiran, ein Programm habe 10 
Segment-Prozeduren, nämlich von 7 bis 
16. Außerdem benutze es eine Intrinsic- 
Unit mit der Segment-Nummer 16. Dies ist 
nicht möglich, daSegment-Nummernnicht 
doppelt verkommen dürfen. Die Lösung 
besteht darin, vor der letzten Segment- 
Prozedur die NS-Option einzusetzen: 
(«$NS 17%) 

segment procedure SegProc; 

Die Segment-Prozedur bekommt dann die 
Nummer 17, der Konflikt wird vermieden. 


10. P- Die Page-Option 


Will man einen Seitenvorschub auf seinen 
Listing-File angeben, so schreibt man die 
parameterlose Option (x$Px) in den Pro- 
grammtext. Diese Zeile erscheint dann als 
erste auf der neuen Seite. 


11. Q - Die Quiet-Compile-Option 


Wird mit («$Q+x) die Q-Option einge- 
schaltet, so werden verschiedene Com- 
piler-Meldungen unterdrückt. Dazu gehö- 
ren die Zeilennummern mit den Punkten 
und die Namen der Prozeduren. Tritt ein 
Fehler auf, so wird nicht die Zeile „<sp> 


prscal 4 


to continue...” ausgegeben. Diese Option 
wird gern in Verbindung mit einem Listing- 
File auf den Bildschirm in Verbindung ge- 
bracht, also (*«$Q+,L CONSOLE:x), weil 
dann die sonstigen Meldungen des Com- 
pilers nicht die Ausgabe des Listing-Files 
stören. Man bekommt also ein übersicht- 
licheres Bild. Allerdings stoppt der Compi- 
ler nicht mehr bei einem Fehler, wenn bei 
eingeschalteter Q-Option ein Listing-File 
ausgegeben wird. Eine Ausnahme bilden 
die Fehler über 400, die als fatal angese- 
hen werden. Beim Auftreten eines solchen 
Fehlers stoppt der Compiler immer die 
Übersetzung. 


12. R- Die Range-Check- und 
Resident-Option 


Wie die I-Option zerfällt auch die R-Option 
in zwei verschiedene Unteroptionen. 

a) Normalerweise erzeugt der Compiler 
nach jedem Array- und String-Zugriff so- 
wie nach Zuweisungen an Variablen eines 
Unterbereichs Code, der zur Laufzeit die 
Gültigkeit von Array- und String-Indizes 
bzw. den Wert eines Ausdrucks überprüft, 
der an eine Subset-Variable zugewiesen 
werden soll. Dieser Code kostet relativ viel 
Speicherplatz, macht aber das Programm 
vor unliebsamen Überraschungen sicher. 
Im Grunde kann man ja nie sicher sein, 
daß man nicht doch einmal auf das 101. 
Element eines 1... 100-Arrays zugreift, 
dennoch kann es angebracht sein, das 
Range-Checking mit einem (#$R-x) 
auszuschalten. Ein Beispiel dafür sei fol- 
gende Aufgabe: Man erstelle eine String- 
Variable, die 132 „=“-Zeichen — etwa zum 
Unterstreichen — beinhaltet. Die Lösung ist 
in Listing 4 dargestellt. 

b) Die R-Option ist in den Handbüchern 
nicht vollständig erklärt. Diese Option ist 
wichtig für das Memory-Management zur 
Laufzeit. Damit kann man Programme er- 
zeugen, die sich selbst ein- und ausla- 
gern, wie es auch der Compiler bei der S- 
Option tut. 

Es geht wieder einmal um Segmente. Ein 
Segment ist z.B. das Hauptprogramm, alle 
seine Segment-Prozeduren, normale 
Units und Intrinsic-Units, die vom Haupt- 
programm benutzt werden. Jedes Seg- 
ment hat seine eigene Segment-Nummer, 
das Hauptprogramm die Nummer 1, Seg- 
ment-Prozeduren meistens ab 7 aufwärts 
usw. Alle Segmente können ausgelagert 
werden, d.h. der Code eines Segments 
wird nur geladen, wenn dieses Segment 
aufgerufen wird. Während Units grund- 
sätzlich bei Beginn des Programms gela- 
den werden, sind Segment-Prozeduren 
immer ausgelagert. Das Einlagern der 
Units kann aber auch, wie schon oben 
erwähnt, durch die N-Option verhindert 
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werden. Angenommen, es sind jetzt alle 
Segmente ausgelagert: Dann kann mit der 
R-Option entschieden werden, welche 
Segmente eingelagert werden sollen. Dies 
kann auch in Abhängigkeit von vorhande- 
nem Speicherplatz geschehen, wenn man 
geschickt programmiert. Auch der Com- 
piler schickt sich selbst in den Swapping- 
Modus, wenn er weniger als 19900 Bytes 
freien Speicher vorfindet. 


Um das Einlagern eines Segments zu er- 
zwingen, stellt man ein (#«$RSegment- 
Namex) an den Anfang des Rumpfes der 
Prozedur, die dieses Segment einlagern 
soll. Nach Ablauf der Prozedur wird dieses 
Segment wieder ausgelagert. Ein ausführ- 
liches Beispiel ist in Listing 5 gegeben. 
Was nicht in den Handbüchern steht, ist 
eine andere Möglichkeit der Syntax der R- 
Option. Man muß nämlich nicht unbedingt 
den Segment-Namen angeben, es reicht 
schon die Segment-Nummer, also (*$R 
7x), was völlig neue Möglichkeiten eröff- 
net. Nun können auch Segmente, deren 
Namen nicht bekannt sind, z.B. Segment- 
Prozeduren in Prozeduren von der äußer- 
sten Ebene eingelagert werden, und dies 
kann man dann natürlich auch mit Be- 
triebssystem-Segmenten tun. 


Ein Beispiel: Ein Programm soll mit Files 
arbeiten und unabhängig von der vom Sy- 
stem ein- oder ausgeschalteten S(wap- 
ping-Option (Kommando-Ebene) arbeiten. 
Wie man weiß, muß bei eingeschalteter 
S(wapping-Option die Boot-Diskette im- 
mer im Boot-Laufwerk stecken, damit SY- 
STEM.PASCAL immer online ist. Das liegt 
daran, daß beim Einschalten des S(wap- 
ping Teile dieses SYSTEM.PASCAL aus- 
gelagert werden. Es ist dies das Segment 
#6 (FILEPROCS) und bei Pascal 1.2 
eventuell noch das Segment #2 (FIO- 
PRIMS), da dort ein S(wapping der zwei- 
ten Stufe eingeschaltet werden kann. Da 
einem Programm nicht die Bezeichner der 
beiden Segmente bekannt sein können 
(außer, wenn man es als System-Pro- 
gramm übersetzen läßt), kann es nicht ei- 
ne Option (x$R FILEPROCSx) anwen- 
den, wohl aber eine Option (x$R 6x). 
Das Programm könnte also so aussehen 
wie in Listing 6. Wenn ein Segment, das 
bereits im Speicher ist, mit der R-Option 
noch einmal eingelagert wird, so macht 
das nichts aus, das System erkennt dies 
und lädt nicht noch einmal nach. Will man 
mehrere Segmente einlagern, kann man 
deren Namen oder Nummern durch Kom- 
mata trennen, also z.B. (x$R 2, 6x). 


13. S - Die Swapping-Option 


Wenn Programme mit vielen Deklaratio- 
nen oder Units übersetzt werden sollen, 
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dann wird der Speicherplatz für die Sym- 
boltabelle des Compilers knapp. Um dies 
zu verhindern, kann man den Compiler 
dazu veranlassen, Teile seiner Segmente 
auf Diskette auszulagern und bei Bedarf 
nachzuladen. Schaltet man mit (x$S+x), 
das am Anfang des Programms oder der 
Unit stehen muß, den Swapping-Modus 
des Compilers ein, so werden nicht alle 
der 15 Segmente des Compilers bei des- 
sen Start eingelagert. Beim Einschalten 
von (#$S++x) wird sogar noch weniger 
eingelagert. Wieviel Platz damit im einzel- 
nen gespart wird, hängt von der Version 
des Compilers ab. Aufschluß darüber gibt 
die folgende Tabelle: 


(#S+x*) (*#S++x) 
Pascal 1.1 5285 6743 words 
Pascal 1.2 >] 6765 words 


Eingelagert werden ohne Swapping die 
Segmente DECLARATIONPART, BODY- 
PART, NUMSTRING, STATEMENT, 
CASESTATEMENT, FORSTATEMENT, 
BODY1, BODY3 und ROUTINE. Bei einfa- 
chem Swapping werden nur noch ROUTI- 
NE und STATEMENT eingelagert, bei 
Doppel-Swapping keine der Segmente. 
Bei der 128K-Version von Pascal 1.2 muß 
der Swapping-Zustand nie eingeschaltet 
werden, da damit kein weiterer Platz für 
die Symboltabelle freigegeben werden 
kann. Man hat dort ohnehin knapp 40K für 
die Symboltabelle zur Verfügung. 


14. T - Die Tiny-Pascal-Option 


Um weiteren Speicherplatz für die Sym- 
boltabelle während des Übersetzens ein- 
zusparen, wurde die T-Option eingeführt. 
Der Compiler, der selbst aus knapp 10000 
Zeilen Pascal-Quelltext besteht, konnte 
auf den kleinen Maschinen von früher 
kaum übersetzt werden. Da der Compiler 
aber nicht alle Standardprozeduren be- 
nutzt, braucht er auch nicht alle zu kennen. 
Setzt man (*x$T+x) an den Anfang eines 
Programms, so werden verschiedene Pro- 
zeduren gar nicht erst vom Compiler initia- 
lisiert, d.h. sie sind dann nicht bekannt. 
Tiny-Pascal ist sozusagen eine Untermen- 
ge von Pascal. Zu den nicht bekannten 
Prozeduren gehören: READLN, PRED, 
SQOR, UNITREAD, INSERT, DELETE, CO- 
PY, POS, SEEK, GET, PUT, PAGE, STR, 
GOTOXY, UNITSTATUS. Ohne diese Pro- 
zeduren hat man weitere 165 Worte mehr 
Platz für die Symboltabelle. 


15. U - Die User-Program- und Use- 
Library-Option 


Auch diese Option zerfällt in zwei gänzlich 
verschiedene Unteroptionen. 


a) Die Erklärung der User-Program-Option 
im Handbuch ist sehr unbefriedigend. Dort 
steht, man solle die Option nicht benutzen, 
wenn man nicht weiß, wie sie genau funk- 
tioniert. Doch schweigt sich das Handbuch 
über deren Anwendung aus. 


Für die Erklärung dieser Option muß man 
etwas weiter ausholen. Jedes Programm 
wird in sog. Segmente zerlegt. Das Haupt- 
programm hat immer die Segment-Num- 
mer 1. Das System benutzt die Nummern 
O und 2 bis 6. Mit „dem System“ ist das 


‚Programm im File SYSTEM.PASCAL ge- 


meint, das beim Booten nach dem Einla- 
den des Interpreters im File SYSTEM.- 
APPLE geladen wird. Dieses System ist in 
Pascal geschrieben und hat die Segment- 
Nummer 0. Daes relativ groß ist, wurde es 
noch einmal aufgeteilt und belegt noch die 
Segment-Nummern 2 bis 6. Die Segment- 
Nummer 1 heißt USERPROGRAM und ist 
eigentlich das normale Hauptprogramm. 
Nur einmal nach dem Booten kann dieses 
USERPROGRAM aufgerufen werden, 
wenn man sofort den Befehl U(ser restart 
gibt. Sonst wird beim Ausführen eines 
normalen Programms immer die Seg- 
ment-Tabelle des Interpreters gefüllt, so 
daß ein normales User-Programm immer 
in Segment 1 der Segment-Tabelle gela- 
den wird. Das SYSTEM.PASCAL selbst 
und alle anderen System-Programme wur- 
den aber mit einem (x»$U-x) vor dem 
Programmkopf übersetzt. Dies zwingt den 
Compiler, nicht mit der Segment-Nummer 
1 anzufangen, sondern mit der Segment- 
Nummer 0! Dadurch ist es möglich, ein 
eigenes Pascal-System (SYSTEM.PAS- 
CAL) zu schreiben, oder Programme zu 
schreiben, die auf Systemvariablen zu- 
greifen. In Listing 7 ist das Gerippe des 
Files SYSTEM.PASCAL dargestellt, das 
mit («$U-x) übersetzt werden muß (sie- 
he auch Apple Pascal Operating System 
Reference Manual, Seite 263 ff.). Zu be- 
achten ist dabei folgendes: Die erste Va-. 
riable im Pascal-System muß ein Zeiger 
auf den sog. Syscomrec (System Commu- 
nication Area Record) sein, der vom Inter- 
preter beim Booten automatisch gesetzt 
wird. Die erste Nicht-Segment-Prozedur 
muß die Exec-Error-Prozedur sein, die 
vom Interpreter angesprungen wird, wenn 
ein Laufzeitfehler auftritt (siehe Apple Pas- 
cal Operating System Reference Manual, 
Seite 226 ff.). 


Listing 8 gibt ein Beispiel eines eigenen 
winzig kleinen Pascal-Systems. Es dürfen 
nur Standardprozeduren benutzt werden, 
also kein READ, READLN etc., denn diese 
müssen erst im SYSTEM.PASCAL defi- 
niert werden. Der Compiler übersetzt sol- 
che Prozeduren als CXP O,n (Call eXternal 
Procedure Segment 0, Procedure n), der 
Compiler und das SYSTEM.PASCAL zie- 
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hen sich sozusagen gegenseitig hoch. Um 
das Listing 8 zum Laufen zu bringen, muß 
der erzeugte Codefile in SYSTEM.PAS- 
CAL umbenannt werden und dann frisch 
gebootet werden. Nach Ablauf des Haupt- 
programms des Pascal-Systems wird im- 
mer ein Kaltstart ausgeführt (P-Code-Be- 
fehl XIT am Ende des Programms). 

Wenn man mit (*$U-x) arbeitet, werden 
zusätzlich folgende Optionen gesetzt: 
(*$R-,I-,G+,V-*). Außerdem ist es er- 
laubt, nicht aufgelöste Forward-Referen- 
zen zu benutzen. Die Units LONGINTIO 
(Long Integer I/O) und PASCALIO (Real I/ 
O) werden beim Benutzen von Long Inte- 
gers und Reals nicht automatisch eingela- 
gert. Will man also in einem System-Pro- 
gramm Long Integers oder Real I/O benut- 
zen, so muß man diese Segmente selbst 
mit Hilfe der R-Option für resident erklä- 
ren. Durch (*x$U-*) ist es außerdem 
möglich, Zeiger auf Files zu definieren, 
was sonst nicht erlaubt ist, also ein Kon- 
strukt type Filep = ? text. Variablen vom 
Typ Filep werden natürlich nicht wie ge- 
wöhnliche Files initialisiert. Man sollte mit 
solchen Zeigervariablen also nur auf 
schon initialisierte Files zugreifen, wie IN- 
PUT, OUTPUT oder die Workfiles. 

Eine weitere Möglichkeit der Benutzung 
der U-Option ist das Zugreifen auf Sy- 
stemvariablen. Listing 9 zeigt, wie man 
von einem normalen Programm auf Sy- 
stemvariablen zugreift. Dieses Programm 
simuliert die Umgebung des Pascal-Sy- 
stems, läuft aber als normales User-Pro- 
gramm ab, das nach dem Übersetzen 
durch R(un bzw. X(ecute gestartet werden 
kann. Es gibt das Systemdatum aus, das 
im Filer mit dem D(ate-Kommando gesetzt 
werden kann. 

Ähnlich kann man auch Units schreiben, 
die auf Systemvariablen zugreifen, ohne 
daß man dies von außen merkt. Die Unit 
CHAINSTUFF ist ein solches Beispiel. In 
diesem Fall muß man die Unit in eine 
Programm-Umgebung einbetten und das 
ganze mit (#$U-x*) Übersetzen lassen. 
Nur durch die U-Option ist es möglich, 
zuerst Variablen zu definieren und dann 
die Unit. Eine Unit, die auf das Systemda- 
tum zugreift, ist in Listing 10 gezeigt. Das 
„Daterec“ ist dort deswegen im Interface- 
Teil nochmals definiert, damit es durch ein 
Uses in ein Programm übernommen wer- 
den kann. 

b) Sollen Units benutzt werden, die sich 
nicht in der SYSTEM.LIBRARY befinden, 
so muß dies mit der U-Option dem Com- 
piler bekannt gemacht werden. Dazu pla- 
ziert man ein (x$UFilenamex) vor die 
Units in der Uses-Liste, also z.B. 

uses (*$U #5:TURTLE.LIBRARY«) 
TurtleGraphics, TurtlelO, TurtleReallO; 
Der Compiler sucht dann auf der Diskette 
in Laufwerk #5: nach dem File TURTLE.- 
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LIBRARY und lädt von dort die Interface- 
Texte der Units TurtleGraphics, TurtlelO 
und TurtleReallO. Danach können keine 
Units mehr benutzt werden, die sich in der 
SYSTEM.LIBRARY befinden, es sei denn 
man gibt dann wieder ein explizites (*x$U 
SYSTEM.LIBRARYx) an. 


16. V - Die Var-Parameter-Option 


Wenn der formale Parameter einer Proze- 
dur ein String ist und die Prozedur mit 
einem aktuellen Parameter aufgerufen 
wird, dessen String-Länge kleiner als die 
des formalen Parameters ist, tritt der Feh- 
ler 175 („Actual parameter max string 
length < var formal max length“) auf. Bei- 
spiel: 
program Test; 
var S: string [10]; 
procedure X (var T: string); 
begin 

fillchar (T, size_of (T), ’') 
end; 
begin 

S := 'ABC'’; 

X (S) (* Fehler 175 x) 
end. 
Warum der Fehler auftreten muß, ist klar. 
In der Prozedur X werden insgesamt 82 
Bytes des Strings T mit einem Leerzei- 
chen gefüllt. Der Parameter S, der die 
Stelle von T beim Aufruf X (S) übernimmt, 
ist aber nicht 82 Bytes, sondern nur 12 
Bytes groß. Würde kein Fehler auftreten, 
würden einige Speicherzellen mit dem 
Wert 32 (ASCII SP) gefüllt, die adressen- 
mäßig hinter dem String S liegen. Dies ist 
sicher nicht im Sinne des Programmierers. 
Trotzdem kann man dies erreichen, wenn 
man (*x$V-x*) in seinem Programm ein- 
fügt. Dann wird das Auftreten des Fehlers 
175 unterdrückt. In dem oben genannten 
Beispiel würde man allerdings undefinierte 
Speicherzellen löschen. In anderen Fällen 
könnte aber die V-Option zum Vorteil ein- 
gesetzt werden. Wenn man in der Proze- 
dur X z.B. über die Länge des Strings 
geht, die ja die definierte Länge nie über- 
schreiten kann, also z.B. 
procedure X (var T: String); 
begin 

fillchar (T (1), length (T), ' ') 
end; 
Die Länge von T muß allerdings vorher 
bekannt sein. Im obigen Beispiel ist sie 3, 
da eine Zuweisung S := 'ABC'’ stattgefun- 
den hat. 


Weitere Compiler-Optionen sind in Pascal 
1.1 und 1.2 nicht definiert. Im nächsten 
Teil wollen wir uns mit der Möalichkeit 
befassen, von Maschinensprache aus in 
Pascal Ein- und Angabeoperationen durch- 
zuführen. 


ProDOS-Editor 1.0 


Applesoft-Editor 
unter ProDOS-Betriebssystem 


von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1024-X 


Mit diesem neuen Editor — übrigens 


' der bislang einzige deutsche Pro- 


DOS-Editor — wird dem Applesoft- 
Programmierer ein Werkzeug zur ef- 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle- 
samt unter ProDOS nicht mehr lauf- 
fähig. 


Unter anderem sind folgende Fea- 
tures implementiert worden: 


— Zeilenorientierter Editor mit jedem er- 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe- 
wegung in allen vier Richtungen, Einga- 
be von Ctrl-Buchstaben in Applesoft- 
Zeilen usw.) 
Renumber (Zeilen-Umnumerierung) 
Xreference (sortierte Variablenliste) 
Suchen von Tokens, Strings und Varia- 
blen 
dezimale und hexadezimale Umrech- 
nungen 
Ausführung von Monitorbefehlen aus 
dem Editor heraus 
Listen des Applesoft-Programms in 
speicherinterner Form als Hex-Dump 
Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 

— frei definierbare Tastatur-Macrobefehle 


Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor- 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 


Gerätevoraussetzung: Apple Il+, Ile 
oder Ilc, 40 Zeichen/Zeile 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Alle Optionen auf einen Blick 


Die mit "x" gekenzeichneten Optionen sind die vom Compiler 
initialisierten Werte (Default values). Am Anfang einer 
Übersetzung hat der Compiler also folgende Optionen gesetzt: 
(*x$D- ,E-,F-,G-,I+,L-,N-,Q-,R+,S-,T-,U+,V+«) 


C <Text> Der String <Text> wird in Block @ des Codefiles 
gespeichert. 
D+ Schaltet die Erzeugung von Breakpoints ein. 
*D Schaltet die Erzeugung von Breakpoints ab. 
E+ Erlaubt private Files in Units. 
*E- Verbietet private Files in Units. 
F+ Schaltet die Byte-Flipped-Machine ein (High 
vor Low). 
*F- Schaltet die Byte-Flipped-Machine aus (Low 
vor High). 
G+ Erlaubt Goto-Befehle. 
*G- Verbietet Goto-Befehle. 
*I+ Der Compiler erzeugt Code für I/O-Checking. 
I- Der Compiler erzeugt keinen Code für I/0- 
Checking. 


I<Filename> Fügt bei der Übersetzung den Quellcode 
<Filename> ein. 


L+ Ein Listing-File mit Namen SYSTEM.LST.TEXT 
wird erzeugt. 
*L- Kein Listing-File wird erzeugt. 
L<Filename> Ein Listing-File mit Namen <Filename> wird 
erzeugt. 
N+ Alle benutzten Units werden ausgelagert. 
*N- Die benutzten Units werden nach dem Starten 


sofort geladen. 


NS <Nummer> Das nächste zu erzeugende Segment hat die 
Nummer <Numnmer>. 


P Ein Seitenvorschub wird im Compilerlisting 
erzeugt. 
Q+ Gewisse Bildschirmmeldungen werden unterdrückt. 
*Q- Prozedur-Namen und Zeilennummern werden 
ausgegeben. 
*R+ Der Compiler erzeugt Range-Checking-Code. 
R- Der Compiler erzeugt keinen Range-Checking- 
Code. 


R<Filename> Lädt ein Segment mit Namen <Filename>. 


R<Nummer> Lädt ein Segment mit Segment-Nummer <Nummer>. 
St Der Compiler lagert einige seiner Segmente aus. 
SH Der Compiler lagert noch mehr Segmente aus. 

*S- Fast alle Segmente des Compilers werden 

eingelagert. 

T+ Tiny-Pascal-Übersetzung. 

*T Normale Pascal-Übersetzung. 

*U+ Es werdem User-Programme übersetzt. 
U- Es werden System-Programme übersetzt. 


U<Filename> Die folgenden Units werden in der Library 
<Filename> gesucht. 


*V+ Checking für VAR-Parameter von Strings wird 
eingeschaltet. 
V- Kein Checking für VAR-Parameter von Strings. 
Demoprogramme 
(Listing 1) 
{$S+, E+} 


unit Private; intrinsic code 23 data 24; 
interface 

procedure Dummy; 

implementation 

var F : file; {Ohne E+ nicht moeglich} 
procedure Dummy; 


var G : file; {Ohne E+ nicht moeglich} 


begin {Dummy} 

reset (G, 'Dummy'); 

close (G, normal); {close notwendig} 
end; {Dummy} 


begin {Private} 

rewrite (F, 'Dummy'); 

close (F, lock) {close notwendig} 
end {Private}. 


(Listing 2) 


program I_Test; 


var IO : integer; 
F : file; 
S  : string; 


begin 
write ('Name: '); 
readln (S); 
{$I-} {Kein I/0-Checking} 
reset (F, S); 
if IOresult <> ß then {File nicht da,} 
begin {vielleicht mit Suffix} 
insert ('.TEXT', S, length (S) + 1); 
reset (F, S) 
{$I+} {wieder einschalten} 
end; {if} 
IO := IOresult; 
write ('Textfile ', S); 
if IO <> ® then write (' nicht'); 
writeln (' gefunden.'); 
close (F) 
end. 


(mm 


(Listing 3) 


{$Q+,L CONSOLE: } 
program L_Test; 


var ıL : 9.8 
begin 
writeln ('Gleich kommt ein Fehler'); 
I := 19;{Value Range Error S#l P#1 I#48 (48 zw. 45 und 51)} 


writeln ('Hier komme ich nicht mehr hin') 
end. 


(mm 
(Listing 4) 
program R_Test; 
const Leng = 132; 
var S : string [Leng]; 
begin 
fillchar (S [1], Leng, '='); 
{$R-} 
S [ß] := chr (Leng); 
{$R+} 
unitwrite (1, S [1], 89); {88 '=' auf Bildschirm} 


{unitwrite (6, S [1], 132)} {132 '=' auf Drucker} 
end. 


(mm 


(Listing 5) 
program R_Test; 


uses TurtleGraphics; 
var C : char; 
segment procedure Init; 
{Initialisierungen} 
begin {Init} 

InitTurtle 


end; {Init} 


segment procedure Dolt; 
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{Irgendwelche Aktionen} 


var I : integer; 


begin {DoIt} 
{$R TURTLEGRAPHICS} {sonst wird 4lmal TurtleGraphics geladen} 
MoveTo (®, 199); 
for I := 1 to 48 do WChar ('X') 

end; {DoIt} 


procedure Main; 
{Hauptprogramm} 


begin {Main} 

Init; 

Dolt; 

TextMode; 

writeln (memavail, ' words') 
end; {Main} 


procedure SwaplIn; 
{Alle aufgezaehlten Prozeduren werden eingelagert} 


begin {SwapIn} 
{$R TURTLEGRAPHICS} {Alles einlagern} 
{$R INIT} 
{$R DOIT} 
Main 
end; {SwapIn} 


begin {R_Test} 


{$N+} {Alles auslagern} 
write ('Einlagern (j/n)? '); 
read (C); 

writeln; 

if Cin ['N', 'n'] 

then Main 


else SwapIn 
end {R_Test}. 


(Listing 6) 
program R_Test; 


{Vor dem Ausfuehren dieses Programms bitte} 
{S(wapping von der Kommandoebene einschalten.} 


wart: file; 


begin 
{$R 2, 6} {Hier Boot-Diskette noch in Boot-Laufwerk} 
writeln ('Bitte Boot-Diskette herausnehnen'); 
writeln ('und andere Pascal-Diskette einschieben!'); 
write ('Dann <return> druecken!'); 


readln; 

rewrite (F, '#4:XXX'); {Ohne die R-Option wuerde...} 

close (F) {...das Programm an dieser...} 
end. {...Stelle abstuerzen.} 
nn ze 
(Listing 7) 
{$U-} 


program Pascalsystenm; 


{Rumpf SYSTEM.PASCAL Version 1.1, vgl. Apple Pascal 
Operating System Reference Manual, Seite 263 ff.} 


type Syscomrec = record 
IOrslt : integer; 
XeqErr : integer; 
SysUnit : integer; 
{usw. siehe Apple Pascal 
Operating System Reference 
Manual, Seite 225 ff.} 
end; {Syscomrec} 
Fibp = fFib; 


Fib = file; {normalerweise record...} 
var Syscom : 1Syscomreo; 
{usw.} 


segment procedure Userprogram (input, output : Fibp); 


{Ein normales Programm ist also nur eine Prozedur 
im Pascalsystem, deren Segmente in GetCmd in die 
Segment-Tabelle im Syscomrec gefuellt werden.} 
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pascal 94 


begin {Userprogranm} 
end; {Userprogram} 


segment procedure Debugger; 


{Nicht implementiert in Pascal 1.l, 
in Pascal 1.2 FIOPRIMS} 


begin {Debugger} 
end; {Debugger} 


segment procedure PrintError (XeqErr, IOrslt : integer); 
{Fehlermeldungen wie "Value Range Error" etc.} 


begin {PrintError} 
end; {PrintError} 


segment procedure Initialize; 
{I(nitialize von Kommando-Ebene} 


begin {Initialize} 
end; {Initialize} 


segment function GetCmd (LastSt : integer) : integer; 
{Kommandozeile etc.} 


begin {GetCmd} 
end; {GetCmd} 


segment procedure FileProcs {6 Parameter...}; 


{Segment zum Auslagern bei S(wapping von der 
Kommando-Ebene (reset, rewrite, close etc.)} 


begin {FileProcs} 
end; {FileProcs} 


procedure ExecError; 
{Muss Segment #9, Prozedur #2 sein} 


begin {ExecError} 
end; {ExecError} 


begin {Pascalsystem} 
Initialize; 
{usw.} 

end {Pascalsysten}. 


(Listing 8) 
{$U-} 


program Pascalsystenm; 

{Ein eigenes kleines Pascalsystem. Ein wesentlich 
groesseres muesste gespalten werden, damit es auf 
die 16K-Karte passt.} 


TFib; 
file; 


type Fibp 
Fib 


var Syscom : Tinteger; 
FF : char; 
CR : char; 


procedure ExecError; 
forward; 


procedure Fwritestr (S : string); 
forward; 


procedure Freadln; 
forward; 


procedure ExecError; 

{Muss Segment #9, Prozedur #2 sein} 

begin {ExecError} 
Fwritestr ('Es ist ein Fehler aufgetreten!'); 
Freadln 

end; {ExecError} 

procedure Fwritestr {S : string}; 

{'Fwritestr' ersetzt writeln, welches der Compiler 


als Prozedur 19 adressieren wuerde, die hier 
nicht existiert.} 
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begin {Fwritestr} 
unitwrite (l, S [1], length (S)); 
unitwrite (1, CR, 1) 

end; {Fwritestr} 


type Daterec = packed record 
Month : ®..12; 
Day : Bi: 
Year : 9..19® 

end; {Daterec} 
procedure Freadln; 
procedure GetDate (var D : Daterec); 
{'Freadin' ersetzt readlIn, welches der Compiler procedure SetDate (D : Daterec); 
als Prozedur 21 adressieren wuerde, die hier 


nicht existiert.} implementation 





var C char; procedure GetDate {var D : Daterec}; 
begin {Freadln} 
C :=cchr (ß); 
repeat 
unitread (2, C, ]l) 
until C = CR 
end; {Freadln} 


begin {GetDate} 
D := TheDate 
end; {GetDate} 


procedure SetDate {D : Daterec}; 
begin {SetDate} 


TheDate := D 
end; {SetDate} 


procedure Clearscreen; 





begin {Clearscreen} 
unitwrite (l, FF, l) 
end; {Clearscreen} 


begin {Date} 
end; {Date} 


begin {Pascalsysten} 
end {Pascalsysten}. 


begin {Pascalsystem} 
FF := chr (12); 
CR := chr (13); 
Clearscreen; 
Fwritestr ('Dies ist ein eigenes Pascalsystem'); 
Fwritestr ('Bei Druecken von <return> wird ein'); 
Fwritestr ('Kaltstart durchgefuehrt.') 
Freadln 

end {Pascalsystem}. 





(Listing 9) 






















{$U-} 


program Pascalsystem; 





type Daterec = packed record 
Month : ®..12; 
Day : B..8l; 
Year : 9..199 
end; {Daterec} 


Fibp TFib; 
Fib = file; 









3. Auflage 


var Fill : array [1..66] of integer; in Vorbereitung 


TheDate : Daterec; {Das 67. Wort} 








segment procedure Userprogram (input, output : Fibp); 





{Programm kann mit X(ecute oder R(un gestartet werden} 





begin {Userprogram} 
write ('Heute ist der '); 
with TheDate do write (Day, '. ', Month, '. 19', Year) 
end; {Userprogram} 


begin {Pascalsystenm} 
end {Pascalsysten}. 


(Listing 10) 


















{$U-} 


program Pascalsystenm; 





type Daterec = packed record 
Month : ®..12; 
Day : 9..81; 
Year : 9..1®® 
end; {Daterec} 


Apple DOS 3.3 — 
Tips und Tricks 


Fibp TFib; 
Fib = file; 


von U. Stiehl 

3., überarb. Aufl. 1985, ca. 230 S., mit 
zahlreichen, ausführlich kommentierten 
Programmlistings, kart., ca. DM 28,— 


var Fill : array [1..66] of integer; 
TheDate : Daterec; {Das 67. Wort} 


{Units nach 'var' nur moeglich mit (x*$U-x*)} 





unit Date; intrinsic code 23; 


interface 


Dr. Alfred Hüthig Verlag : Postf. 102869 - 6900 Heidelberg 1 
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Utilities von Beagle Brothers 


getestet von Franz-Josef Hüskens 


Im Peeker, Heft 6/85, Seite 77 
wurden bereits die beiden Pro- 
gramme DOUBLE TAKE und 
GPLE, die beide von der Firma 
Beagle Brothers angeboten wer- 
den, vorgestellt. 


In diesem Artikel sollen nun einige 
„Programmsammlungen“ bzw. 
Programme der gleichen Firma 
vorgestellt werden. Diese Pro- 
gramme sind mehr oder weniger 
nützlich, zu einem sehr geringen 
Teil sogar total unnütz. Auf den 
Disketten befinden sich teilweise 
auch Spiele und Demonstrations- 
programme von anderen Disketten 
der Firma Beagle Brothers. Fast 
alle Programme sind listbar und 
können damit nicht nur vom Benut- 
zer eingesehen, sondern — falls 
gewünscht — auch geändert wer- 
den. Das Listen und spätere Analy- 
sieren einzelner Applesoft-Pro- 
gramme ist jedem, der selbst pro- 
grammiert und eine Diskette der 
Beagle Brothers besitzt, sehr zu 
empfehlen. Man sieht hier meist 
eine sehr „clevere“ Programmie- 
rung. Applesoft-Befehle werden in 
ungeahnter Weise ausgenutzt und 
bringen „Amateur“-Programmie- 
rer auf vollkommen neue Ideen. Da 
manche Programme sehr anspre- 
chende Menüs haben, erhält man 
auch dahingehend Tips für eigene 
Programme. 


Doch nun zu den einzelnen Dis- 
ketten und deren Inhalten: 


1. Utility City 


Diese DOS-3.3-Diskette enthält 
die folgenden 21 Utilities (die Rei- 
henfolge entspricht der im Hand- 
buch und ist keine Wertung): 


1) Filename Zap verändert jeden 
beliebigen File-Namen so, daß der 
Name im Catalog entweder un- 
sichtbar ist oder inverse, blinkende 
oder normale Zeichen in beliebiger 
Folge enthält. 


2) Command Zap ermöglicht die 
„Eingabe“ von unsichtbaren Be- 
fehlen oder REM-Kommandos in 
ein Applesoft-Programm. 


3) Line Search erlaubt das Auffin- 
den der Programmzeilen eines Ap- 
plesoft-Programms. Die Beschrei- 
bung zu diesem Programm bein- 
haltet auch eine kurze Abhandlung 
über die Organisation der Pro- 
grammspeicherung. 


4) Screenwriter: Mit dieser Utility 
können Bildschirm-Layouts, z.B. 
für Menüs entworfen werden. Es 
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ist möglich, über die Tastatur in 
den drei Anzeige-Modi (INVERSE, 
FLASH, NORMAL) direkt Text in 
Groß- oder Kleinschreibung zu er- 
zeugen. Wörter oder ganze Text- 
blöcke können verschoben oder 
zentriert bzw. links- oder rechts- 
bündig formatiert werden. Fertige 
Layouts können bildschirmweise 
auf Diskette gespeichert oder von 
Diskette geladen werden. Die Aus- 
gabe über einen Drucker ist natür- 
lich auch möglich. 


5) Int Converter „übersetzt“ Inte- 
ger-BASIC-Programme in Ap- 
plesoft-Programme, allerdings oh- 
ne die Syntax zu korrigieren. Die 
Bedienungshinweise zu dem Pro- 
gramm enthalten jedoch eine Ge- 
genüberstellung der Integer- und 
Applesoft-Befehle, die noch „von 
Hand“ berichtigt werden müssen. 


6) Bfind ist ein EXEC-File, der die 
Startadresse und die Länge des 
zuletzt geladenen Binär-Files an- 
zeigt. 


7) Sortfile: Dieses Programm ist 
zum „Ausbau“ gedacht. Es gestat- 
tet das Sortieren und Speichern 
von eindimensionalen Feldern. 


8) Connect vereinigt zwei kleine 
Applesoft-Programme zu einem 
großen. 


9) Text Dump gibt den aktuellen 
Textbildschirminhalt auf dem Druk- 
ker aus. Das Programm arbeitet al- 
leine oder als Teil eines anderen 
Programms. 


10) Rem Zap ermöglicht die inver- 
se Anzeige von REM-Statements. 
Dazu wird allerdings noch das Pro- 
gramm Rem Find benötigt. Nach 
Eingabe von PR#0O oder Betätigen 
der RESET-Taste werden die in- 
versen Statements unsichtbar. 


11) Address Checker gestattet ei- 
ne „Expedition“ durch den Apple- 
Speicher. Ein vom Benutzer aus- 
gewählter Adreßbereich wird auf 
Unterschiede des Speicherinhalts 
zu zwei verschiedenen Zeitpunk- 
ten untersucht. Geänderte Inhalte 
werden invers angezeigt. 


12) Multi Cat gestattet die Ausga- 
be des Disketten-Catalogs in be- 
liebiger Spaltenzahl (3, 4, 5 Spal- 
ten usw.) und in beliebigem Sei- 
tenformat. 


13) Key Cat erlaubt die Auswahl 
der Programme einer Diskette mit 
einem Tastendruck. Die gewählten 
Programme werden automatisch 
gestartet. Zusätzlich zeigt das Pro- 
gramm den freien Speicherplatz 
einer Diskette an. 


14) Kill Cat: Ctrl-C oder eine be- 
liebig wählbare Taste unterbricht 
einen langen Disketten-Catalog. 
Jeder andere Tastendruck startet 
die Catalog-Ausgabe erneut. 


15) Double Loader: Mit einem 
Textfile, der bei jeder Benutzung 
neu erstellt wird, kann ein Ap- 
plesoft-Programm durchgeführt 
werden, während ein anderes BA- 
SIC-Programm im Speicher ver- 
bleibt. 


16, 17) Run Counter und Run 
Dater: Beide Programme sollten 
einem eigenen Applesoft-Pro- 
gramm vorangestellt werden. Run 
Counter zählt die Anzahl der Pro- 
grammbenutzungen, zeigt sie an, 
vermerkt diese Zahl im Programm 
und speichert dieses dann auf Dis- 
kette. Run Dater arbeitet genauso 
mit der Ausnahme, daß nicht die 
Anzahl der Programmläufe gespei- 
chert wird, sondern das Datum der 
Benutzung. 


18) Chr$ Poker zeigt auf Wunsch 
die Speicheradresse jeder Bild- 
schirmzelle und den ASClIl-Wert 
jedes eingegebenen Zeichens an. 


19) Bigliner gestattet das Nume- 
rieren einzelner Programmzeilen 
eines Applesoft-Programms mit 
der Zeilenzahl 65535. 


20) Hex, Dec & Dex ermöglicht 
Zahlenkonvertierung von dezimal 
in hexadezimal und umgekehrt so- 
wie die Umwandlung in Binärzah- 
len. Dabei können sowohl negative 
als auch positive Zahlen eingege- 
ben werden. 


21) Xlister formatiert Applesoft- 
Programme so, daß sie leichter 
lesbar werden: Jeder Befehl einer 
Programmzeile wird in einer eige- 
nen Zeile dargestellt, Befehle in- 
nerhalb einer FOR-NEXT-Schleife 
werden eingerückt. Die Ausgabe 
ist auf den Bildschirm oder über 
Drucker möglich, wobei die Spal- 
tenzahl frei wählbar und auch Sei- 
tenumbruch auf dem Drucker 
möglich ist. 


Die Benutzung der Programme 
wird in einem 20seitigen englisch- 
sprachigen Handbuch erklärt. Das 
Gesamtpaket „Utility City“ bietet 
auf den ersten Blick zwar eine Un- 
menge von Programmen, jedoch 
muß dabei berücksichtigt werden, 
daß verschiedene Programme nur 
umständlich zu handhaben sind 
oder andere Utilities nur dann be- 
nutzt werden können, wenn der 
entsprechende File auf der mo- 
mentan benutzten Diskette vor- 
liegt. Eine bessere Lösung wären 
hier entsprechende Routinen in 
Maschinensprache, die jederzeit 
im Speicher präsent sind. 
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Ich selbst benutze zwei Program- 
me (Xlister und Screenwriter) re- 
gelmäßig und fünf andere Pro- 
gramme weniger häufig. Die restli- 
chen Utilities habe ich bisher sel- 
ten bzw. gar nicht benutzt. Vom 
Nutzen der Utilities her scheint der 
Preis von ca. DM 120,- überhöht, 
jedoch erhält man zusätzlich noch 
ein 25seitiges Büchlein mit ver- 
schiedenen Tips und ein Poster, 
auf dem wichtige Speicherstellen 
bzw. Monitorroutinen aufgelistet 
sind. Außerdem können die Pro- 
gramme — wie bereits erwähnt — 
alle gelistet werden; man lernt da- 
durch neue Programmiertechniken 
und erhält neue Ideen. 


2. DOS Boss 


Hierbei handelt es sich um einen 
Editor, mit dem es möglich wird, 
DOS-Kommandos und -Fehler- 
meldungen zu verändern sowie 
das Layout des Catalogs einer Dis- 
kette völlig neuartig und anspre- 
chender zu gestalten. DOS Boss 
funktioniert nur bei unverändertem 
DOS 3.3, nicht bei Diversi-DOS 
usw. Das Programm, das im zuge- 
hörigen Handbuch vollständig geli- 
stet wird, ist ein fast lupenreines 
Applesoft-Programm. Im Hand- 
buch wird nicht nur die Benutzung 
sehr klar und ausführlich (beson- 
ders für den Anfänger) beschrie- 
ben, sondern auch Aspekte des 
Disketten-Betriebssystems so ein- 
fach erklärt, daß es auch für Anfän- 
ger verständlich ist. 


Was ist mit DOS Boss alles mög- 
lich? 


1) Änderungen der DOS-Kom- 
mandos - Alle DOS-Befehle wer- 
den angezeigt und können dann 
nach eigenen Vorstellungen um- 
benannt oder eingedeutscht wer- 
den. Für verschiedene Befehle 
werden als Beispiel andere oder 
bessere Kommando-Versionen 
vorgestellt. Außerdem werden 
noch Regeln aufgezählt, die beim 
Ändern von Befehlen unbedingt 
beachtet werden sollten. 


2) Änderung der Fehlermeldun- 
gen — Man erhält alle Fehlermel- 
dungen angezeigt und kann dann 
nach eigenem Gutdünken Verän- 
derungen vornehmen. Hierfür wer- 
den im Handbuch auch Beispiele 
gezeigt. 


3) Änderungen des Catalog-For- 
mats — Normalerweise können nur 
maximal 23 File-Namen auf dem 
Bildschirm angezeigt werden. Mit 
DOS Boss kann diese Anzahl bis 
auf 88 erhöht werden. 
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4) Änderungen in der Volume- 
Zeile -— DOS Boss erlaubt auch 
Änderungen in der Volume-Zeile. 
Die Zeile kann in den drei Ausga- 
bemodi (NORMAL, FLASH, IN- 
VERSE) angezeigt werden; der 
Text kann beliebig geändert wer- 
den (maximal 16 Zeichen sind 
möglich). Die Volume-Nummer 
wird wahlweise angezeigt oder 
weggelassen. Mit „Spezialzei- 
chen“ können Zeichen eingerückt 
oder überschrieben sowie Zeilen- 
vorschub oder ein Return eingege- 
ben werden. 


5) Änderungen des File-Codes - 
Der normale File-Code (A, |, B, T) 
kann genauso wie das UNLOCK- 
Symbol (Leertaste) und das 
LOCK-Symbol (x) geändert wer- 
den; falls erforderlich sogar in in- 
verse oder blinkende Zeichen. 


Sind alle gewünschten Änderun- 
gen vorgenommen, so können 
diese auf zwei Arten auf Diskette 
„verewigt“ werden: 


1. Initialisierung einer frischen Dis- 
kette. 


2. Speicherung von entsprechend 
vorbereiteten Programmzeilen in 
einem Applesoft-Programm mit 
Hilfe eines EXEC-Files. 


DOS Boss ist jedoch nicht das ein- 
zige Programm, das auf der Dis- 
kette vorhanden ist: 


Key Cat ist eine Utility, die eine 
leichtere Auswahl von Program- 
men aus der Catalog-Routine her- 
aus gestattet. Jedes Programm 
wird mit einem einfachen Tasten- 
druck geladen und gestartet. Auf 
Wunsch werden die freien und be- 
legten Sektoren der benutzten 
Diskette angezeigt. 


Bait Cat zeigt die Files einer Dis- 
kette sortiert nach Filetypen an. 


Zwei Programme, LP und NU, 
werden mit entsprechenden Be- 
fehlsänderungen über DOS Boss 
zu den „Pseudobefehlen“ Help 
und Menu. 


Neben der Programmbedienung 
erklärt das Handbuch auch, wie 
man DOS ohne DOS Boss ändern 
kann. Verschiedene Tips und 
Tricks werden in einem besonde- 
ren Büchlein und in einem 10seiti- 
gen Teil des Handbuchs mitgelie- 
fert. 


Der Preis von DM 100,- ist ge- 
rechtfertigt. Das Programm ist 
nützlich für diejenigen, die ihre 
Programme verkaufen oder verlei- 
hen. Aber auch derjenige, der kei- 
ne direkte Anwendung für DOS 
Boss hat (so wie ich), lernt viel 
über DOS 3.3. 
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3. Tip Disk 1 


Jedes von den Beagle Brothers 
verkaufte Objekt umfaßt neben di- 
versen Zutaten wie PEEK- und 
POKE-Poster, Befehlstabelle, 
Farbtabelle, ASCIl-Tabelle usw. 
noch ein Tip-Buch oder eine Tip- 
Chart (Poster). Neben Hardware- 
Tips enthalten diese Bücher und 
Poster noch verschiedene Pro- 
gramme und Programmiertricks. 
Die Tip Disk 1 enthält alle Program- 
me, die in den Tip Büchern 1 bis 4 
erschienen sind. 


Auf der Diskette befinden sich 
zwei Utilities zur Konvertierung 
von Programmen in die jeweils an- 
dere Sprache (Applesoft bzw. Inte- 
ger-BASIC), eine FLASH-Befehl- 
Simulierung für Integer-BASIC, ein 
Begrüßungsprogramm und ein 
Zählprogramm für die Anzahl von 
Programmläufen. Des weiteren 
gibt es Programme, die den Text- 
bildschirm auf den Drucker ausge- 
ben, eine vollständige ASCII-Ta- 
belle ausdrucken und das Layout 
des Textbildschirms zeigen. Ein 
kleines Spielprogramm ist ebenso 
auf der Diskette zu finden wie eine 
Alphabetisierungsroutine. In weite- 
ren Programmen wird die Anwen- 
dung von Shapes gezeigt, die Slot- 
Belegung dargestellt und erklärt 
sowie das Applesoft-ROM durch- 
sucht. 


Einige Programme sind nützlich, 
viele sind unnütz, jedoch sind alle 
Programme interessant. Sie kön- 
nen beliebig kopiert und gelistet 
werden und erfüllen damit einen 
gewissen Lehrzweck. Der Preis 
von DM 70,- ist meines Erachtens 
gerechtfertigt. 


4. Silicon Salad 


Auf dieser Diskette sind wie auf 
der Tip Disk 1 jede Menge Pro- 
gramme. Unter anderem alle Pro- 
gramme der Tip-Bücher 5 bis 7 
und der Tip-Chart 1. 


Die Beagle Brothers führen eine 
Art Wettbewerb durch, in dem die 
Programmkäufer bzw. die Tip- 
Buch-Leser aufgefordert werden, 
zweizeilige, voll lauffähige Pro- 
gramme einzusenden. Da Pro- 
gramme einen Zweck erfüllen sol- 
len und in zwei Zeilen weder ein 
umfangreiches Frage- und Ant- 
wortspiel noch ein Tabellenkalkula- 
tionsprogramm programmierbar 
ist, bleiben nur Grafik- und Musik- 
programme übrig. Der größte Teil 
der Zweizeiler zeigt daher auch 
Grafiken auf den Lores- bzw. Hi- 
res-Seiten. Diese Programme sind 
sehr unterhaltsam (ich könnte 


manchen stundenlang zuschau- 
en!) und zeigen außerdem, was 
effektives Programmieren ist und 
wie man kompakten Programm- 
code „produziert“. 

Unter den Programmen aus den 
Tip-Büchern befindet sich ein 
Spielprogramm (Black Jack), eine 
Sortier- und eine Text-Zentrierrou- 
tine. 

Des weiteren gibt es ein Pro- 
gramm, das es gestattet, Hires-Bil- 
der mit BRUN zu starten. Dabei 
wird automatisch die richtige Hi- 
res-Seite gewählt und einge- 
schaltet. 

Ein Programm, genannt Text Im- 
print, nimmt allen Text vom Text- 
bildschirm und „zeichnet“ ihn auf 
den Hires-Grafikbildschirm. 

Ein Text Screen Formatter er- 
laubt es, zuerst ein Bildschirm- 
Layout zu entwerfen und „formt“ 
dieses Layout später zu einem rei- 
nen Applesoft-Programm (VTAB-, 
HTAB- und PRINT-Kommandos) 
um. 

Help Screen speichert eine kurze 
Bedienungsanleitung oder einen 
Hilfstext auf die Textseite 2 und 
zeigt diese nach Eingabe von 
Otrl-1. 

Ein weiteres Programm verschiebt 
einen beliebigen Bereich der Text- 
seite 1 in die Seite 2, ein anderes 
gibt einen beliebigen Bereich des 
Textschirms auf dem Drucker aus. 


Zusätzlich befinden sich noch 
sechs Utilities auf der Diskette: 

1) Disk Scanner sucht nach phy- 
sikalisch defekten Sektoren einer 
Diskette. Werden „schlechte“ 
Sektoren gefunden, wird die VTOC 
(Inhaltstabelle) der Diskette so ge- 
ändert, daß die schlechten Sekto- 


ren nicht mehr benutzt werden 
können. 

Als Fazit kann ich sagen, daß ich 
den Kauf der hier beschriebenen 
Programmpakete nicht bereue. 
Wenn ich auch verschiedene Pro- 
gramme aus unterschiedlichen 
Gründen nicht benutze, so hat mir 
jedoch jedes Paket sehr beim Ken- 
nenlernen des Apple und beim 
Programmieren geholfen. 


2) DOS Killer entfernt DOS von 
einer Diskette. Damit erhält man 
weitere 32 frei benutzbare Sek- 
toren. 

3) Key Clicker verlangt die Einga- 
be einer Zahl, die als Wert für ei- 
nen „Klick“ gespeichert wird. Da- 
nach sendet jeder Tastendruck ei- 
nen Ton (Klick) aus. 

4) Program Splitter teilt ein gro- 
Bes Applesoft-Programm in ge- 
trennte Speicherbereiche auf. Be- 
nutzt nämlich ein sehr langes Ap- 
plesoft-Programme die Hires-Gra- 
fik, so kann es selbst oder dessen 
Variablen mit den Hires-Bildern 
derart in Konflikt geraten, daß sie 
sich gegenseitig löschen. Program 
Splitter produziert ein „Loch“ im 
Applesoft-Programm, in dem dann 
die Hires-Seite liegt. 

5) Two Track Cat stellt DOS so 
um, daß für den Catalog zwei Spu- 
ren statt einer Spur zur Verfügung 
stehen. Damit kann statt 105 Files 
die doppelte Anzahl gespeichert 
werden. Die Files müssen natürlich 
entsprechend kurz sein. 

6) Undelete „entlöscht“ gelöschte 
Files einer Diskette. 

Diese Utilities alleine rechtfertigen 
den Preis von ca. DM 90,- DM für 
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Triple-Dump 


Ein Bildschirm-Druckprogramm 
Erfahrungsbericht von Rolf W. 


Das von der Firma Beagle Bros. 
entwickelte Programm Triple- 
Dump ist jetzt bei einschlägigen 
deutschen Importeuren für etwa 
DM 160,- erhältlich. Es dient dem 
Zweck, 40- und 80-Z/Z-Text-, LO- 
res-, Double-Lores-, Hires- und 
Double-Hires-Bildschirminhalte auf 
den Drucker auszugeben. Für 
Double-Hires werden die mit 
Beagle-Graphics (s. Peeker, 8/85, 
S.77) gezeichneten Bilder benö- 
tigt. 

Zum Lieferungsumfang gehören je 
eine beidseitig zu benutzende 


Becker 


DOS-3.3- und ProDOS-Diskette. 
Auf der ersten Seite befindet sich 
das Triple-Dump-Programm, Text- 
dateien mit den häufigsten Druk- 
kern und Interfaces (je ca. 50). Da- 
mit kann man Triple-Dump auf sei- 
ne Konfiguration einstellen, ab- 
speichern und hat bei jedem Pro- 
grammstart den richtigen Drucker 
mit dem entsprechenden Interface 
eingestellt. Mit dem Programm 
Transfer kann diese Einstellung 
dann auf die DOS-lose Rückseite 
übertragen werden, wie im übrigen 
auch auf andere Disketten, denn 
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alle Programme sind wie gewohnt 
listfähig und kopierbar und können 
somit in eigene Programme einge- 
bunden werden. 

Auf der Rückseite (ohne DOS) 
sind mehrere Hilfsprogramme, um 
alle 6 Arten von Bildschirminhalten 
abzuspeichern oder zu drucken, 
z.B. ein Programm, das Text in die 
Hires oder Double-Hires schreibt, 
wozu sich die Fonts von Beagle- 
Graphics eignen. Außerdem sind 
Beispiel-Bilder auf beiden Disket- 
tenseiten vorhanden. 


AITTTeR. 
- a! |, 
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Implementierte Befehle 


Nach dem Starten von Triple- 
Dump erscheint ein Optionsmenü 
mit der abgespeicherten Drucker- 
Interface-Konfiguration. Danach 
kann man u.a. wählen: 


Type: Art des Bildschirminhalts, 
der mit Return ausgewählt wird. 


Load Picture: Nach Return wird 
der Catalog gezeigt, mit den Pfeil- 
tasten die Bilddatei ausgewählt 
und mit Return geladen. 


Crop Picture: Das Bild kann von 
allen vier Seiten verkleinert wer- 
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den, damit nur ein Ausschnitt aus- 
gedruckt wird. Der Ausschnitt kann 
mit „Magnify“ der Papierbreite 
entsprechend vergrößert gedruckt 
werden. 


Print Picture: Das Bild wird aus- 
gedruckt. Falls der Vergrößerungs- 
maßstab oder die linke Randein- 
stellung die Papierbreite über- 
schreiten sollte, wird nicht ge- 
druckt, sondern darauf hingewie- 
sen, daß neu eingestellt werden 
muß. 


ILL IT 


| g an 


Rotate: Der Ausdruck kann um 0, 
90, 180, 270 Grad gedreht werden. 
Indent: Der Abstand vom linken 
Rand kann der Papierbreite ent- 
sprechend beliebig festgelegt 
werden. 

Negative: Damit kann der Bild- 
schirm invertiert bzw. negativ ge- 
druckt werden (funktioniert nicht 
bei Textbildschirm). 

Magnify X, Y: Die Vergrößerung 
des Bildes wird festgelegt. 
Density: Die druckerabhängige 
Druckart wird festgelegt (Punkte je 
Zoll). 

Disk Drive: 1 oder 2. 


Um die Einstellungen für Drucker, 
Interface, Slot, Papierbreite, Ver- 
zögerung, Zeilenvorschub usw. 
braucht man sich normalerweise 
nicht zu kümmern. Nach Betäti- 
gung der Leertaste kann jederzeit 
das im Speicher befindliche Bild 
angesehen werden. Mit F wird ein 
Blattvorschub erzeugt, mit L ein 
Zeilenvorschub. Mit ESC wird das 
Programm verlassen. 


Triple-Dump ist ein komfortables 
und gut funktionierendes Druck- 
programm, das viele Druckmög- 
lichkeiten bietet. Es ist damit auch 
ganz einfach, Bilder zwischen Text 
zu drucken oder umgekehrt. Bei 
allen Varianten wie Rotate, Magni- 
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fy, Crop, Indent usw. werden die 
Ausdrucke gleich gut und sind ein- 
wandfrei. 


Als Zugabe ist auf der Rückseite 
noch „Big Banner“ enthalten, der 
bis zu 200 Zeichen lange Texte in 
einem Schriftgrad von 8 Zoll aus- 
druckt. Da das Programm auflistbar 
ist, habe ich am Anfang noch eine 
kleine Abfrage eingefügt, die die 
Schriftgröße festlegt. Genauso wie 
dieses Programm können auch alle 
anderen eingedeutscht werden. 
Die englische Beschreibung ist 
übersichtlich und gut verständlich. 
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Diversi-DOS 4.1-C 


mit Garbage-Collection 


von Rudolf Rötering 


Seit kurzem ist der von mir im 
Peeker 6/85, S. 72ff. beschriebene 
RAM-Disk-Driver und eine 
schnelle Garbage-Collection im 
normalen Lieferumfang der Ver- 
sion 4.1-C zum Preis von $ 30.00 
enthalten. Ab 1. Juli 1985 hat DSR 
Inc. folgende neue Anschrift: 


Diversified Software Research, 
Inc. 

34880 Bunker Hill 

Farmington, MI 48018-2728 

Tel. 313 553-9460 

USA 


Die Ziffernfolge 815 877-1343, die 
im Nachwort hinter meinem Be- 
richt im Peeker 6/85 folgt, ist die 
Telefonnummer von DSR Inc. in 
Rockford, Ill. und nicht die Konto- 
nummer der (VISA/Master-Card). 
Es geht wirklich am einfachsten 
und schnellsten, wenn, wie in mei- 
ner Vorlage erwähnt, die 30,- Dol- 
lar in bar per Post im Bestellbrief 
übersandt werden. Das mag für 
deutsche Verhältnisse ungewöhn- 
lich sein, ist aber in den USA 
durchaus üblich. 


Garbage-Collection von DSR 


Die neue schnelle Garbage-Col- 
lection wird mit BRUN GARB akti- 
viert. GARB setzt die Ampersand- 
und Ctrl-Y-Vektoren und ersetzt 
die jeweilige INIT-Routine (64K- 
DOS oder 48K-DOS) durch die 
neue Collection-Routine. Sie kann 
daher sowohl durch den Amper- 
sand- (mit „&“) als auch durch den 
Ctri-Y-Vektor mit „CALL 1016“ 
ausgelöst werden. Durch 


POKE 48816,N (48K-DOS) oder 
POKE 65200,N (64K-DOS) 

kann mit N wie bei Harald Grum- 
sers LC.FRE oder RAM.FRE 
(Peeker 1/85) die Unterschreitung 
der Anzahl der freien String-Seiten 
als Bedingung für das Durchführen 
dieser Routine gewählt werden. 
Als Vorgabe giit N= 4, das IK 
Restspeicher bedeutet. Mit N = 0 
wird die Garbage-Collection er- 
zwungen. 

Weil diese Routine den Speicher- 
bereich der INIT-Routine belegt, 
steht entweder der INIT-Befehl 
oder die Garbage-Collection zur 
Verfügung. Hieraus ergibt sich der 
Vorteil, daß z.B. die Bank 2 der 
Language-Card für die INPUT-2.0- 
Routinen (vom Hüthig Software 
Service) zur Verfügung steht. Beim 
64K-DOS kann durch BRUN UN- 
GARB64 der Garbage-Collection- 
Patch wieder rückgängig gemacht 
werden. 

Mit dem Programm FRE.TEST (aus 
Peeker 1-2/85) wurde ein Zeitver- 
gleich mit anderen Collection-Rou- 
tinen gemacht, den die Tabelle 1 
darstellt, wobei die Werte für die 
bereits getesteten Routinen über- 
nommen wurden, zumal mir nur 
eine mechanische Stoppuhr zur 
Verfügung stand. Es wurde außer 
dem im Peeker 1-2/85 erschiene- 
nen Programm LC.FRE, der 
GARB-Routine von Diversi-DOS 
4.1-C auch die FAST-GARBAGE- 
COLLECTION von Randy Wig- 
gington aus „CALL A.P.P.L.E. in 
Depth 1“ verglichen. Sie belegt 
beim Test den Bereich von $B900 
bis $BEFA, wobei der Bereich ab 
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$BAA4 = 1110 Bytes als Work- 
space benutzt wird, der die Verar- 
beitungsgeschwindigkeit maßgeb- 
lich beeinflußt. Bei dieser Routine 
läßt sich dieser Bereich im Source- 
Code einstellen. 
Zusammenfassend läßt sich sa- 
gen, daß Harald Grumsers Routine 
nicht zu unterbieten ist und die Be- 
zeichnung „Müllabfuhr wie ein 
Blitz“ äußerst treffend erscheint. 
Die FAST-GARBAGE-COLLEC- 
TION von Randy Wiggington und 
die GARB-Routine von Diversi- 
DOS 4.1-C dauern 10- bis 50mal 
länger und sind somit nur Mittel- 
maß, obwohl sie ca. 30mal schnel- 
ler sind als das Interpreter-FRE. 
Für die FAST-GARBAGE-COL- 
LECTION hält Apple Computer Inc. 
das Copyright, die im Oktober 
1980 wohl als erste Routine dieser 
Art erschienen ist. 


APPEND im Geschwindigkeits- 
vergleich 


Beim Geschwindigkeitsvergleich 
der Disketten-Betriebssysteme 
fehlen die Werte für APPEND, bei 


dem der Unterschied zu DOS 3.3 
besonders groß ist. ProDOS ist 
hier wohl genauso schlau wie Di- 
versi-DOS und nimmt die Abkür- 
zung über die Track/Sektor-Liste. 
Ich habe mir erlaubt, das Pro- 
gramm um diesen Test zu erwei- 
tern und die Testdaten in die Ta- 
belle einzufügen. Die Zeitangaben 
im Peeker 6/85 beziehen sich 
beim Test auf leere Disketten. Ver- 
suche auf zum Teil beschriebenen 
Disketten können zum Beispiel 
beim BSAVE unter ProDOS 30 bis 
40 Sekunden länger dauern. Beim 
WRITE- und READ-Test in Zeile 50 
bzw. 60 komme ich bei ProDOS 
auf völlig andere Zeiten. Ich messe 
beim WRITE 70 statt 108 Sekun- 
den und beim READ 145 statt 105 
Sekunden. Beim DOS-3.3-READ 
in Zeile 60 muß es 283 statt 243 
Sekunden heißen. 

Die Tabelle 2 gibt die von mir auf 
einem Disk-Il-Laufwerk gemesse- 
nen Werte wieder. Sofern meine 
Zeiten nicht mehr als 5 Sekunden 
vom Bericht abwichen, habe ich 
die Daten aus der Ausgabe 6/85 
übernommen. 


Tabelle 1: Zeitvergleich der Garbage-Collection-Routinen 


Anzahl der erzeugten String-Leichen 


Peeker 1-2/85 09,03 
FAST-GARBAGE- 
COLLECTION d,30 
GARB Diversi- 
DOS 4.1-C d,30 
Applesoft-In- 


terpreter-FRE 9,94 


Alle Zeitangaben in Sekunden. 


1,79 


19,49 


2000 5099 


Listing des modifizierten FRE.TEST aus Peeker 1-2/85 


118 HIMEM: 47369 

120 A = 5009 

130 B$ = CHR$ (7): REM Bell 
14® GOSUB 220: DIM A$(A) 
150 FOR I=P9 TOA 

160 A$(I) = B$:A$(I) = B$ 
17® NEXT 

180 GOSUB 229: PRINT B$; 


1908 CALL 47379: REM bei FASTGARBAGE aus CALL A.P.P.L.E. 
195 REM Diversi-DOS GARB: POKE 65299,®: CALL 1916 


200 PRINT B$;: GOSUB 229 
210 END 
220 PRINT "STRINGS= "; 


PEEK (115) + PEEK (116) * 256 -— 


PEEK (111) — PEEK (112) x 256, 


230 PRINT "FRE= "; 


240 RETURN 


68 


PEEK (111) + PEEK (112) * 256 — PEEK 
(189) - PEEK (11) * 256 








Tabelle 2: DOS-Geschwindigkeitsvergleich 


Zeile Befehl ProDOS Diversi- DOS 3.3 


DOS 4.1-C 


19 BSAVE 383 155 837 
29 BLOAD 97 125 628 
30 WRITE 30 57 149 
40 READ 27 47 165 
80 APPEND (3) (5) (127) 
59 WRITE (72) 95 171 
69 READ (145) 86 (283) 
7% APPEND (3) (5) (127) 


Alle Zeitangaben in Sekunden. Die Klammerwerte sind gegenüber 
Peeker 6/85 korrigiert bzw. ergänzt. 


Modifiziertes und erweitertes Listing aus Peeker 6/85 
zum DOS-Geschwindigkeitstest. 


18 FOR I = 1 TO 29: PRINT CHR$ (4)"BSAVE XXX, A$1009, 
L$T7FFF": NEXT : PRINT CHR$ (7): END 


20 FOR I = 1 TO 29: PRINT CHR$ (4)"BLOAD XXX": NEXT : 
PRINT CHR$ (7): END 


30 A$ = "123456789 123456789 123456789 123456789 123456789 
123456789 123456789 123456789 123456789 123456789" 

31 PRINT CHR$ (4)"OPEN YYY": PRINT CHR$ (4)"WRITE YYY": 
FOR I = 1 TO 598: 

32 PRINT A$ 

33 NEXT : PRINT CHR$ (4)"CLOSE": PRINT CHR$ (7): END 


48 PRINT CHR$ (4)"OPEN YYY": 
FOR I = 1 TO 599 

41 INPUT "";A$ 

42 NEXT : PRINT CHR$ (4)"CLOSE": 


PRINT CHR$ (4)"READ YYY": 


PRINT CHR$ (7): END 


50 A = 123456789 

51 PRINT CHR$ (4)"OPEN ZZZ": PRINT CHR$ (A)"WRITE ZZZ": 
FOR I = 1 TO 5999 

52 PRINT A 

53 NEXT : PRINT CHR$ (4)"CLOSE": PRINT CHR$ (7): END 

60 PRINT CHR$ (4)"OPEN ZZZ": PRINT CHR$ (4)"READ ZZZ": 
FOR I = 1 TO 590® 

61 INPUT "";A 


62 NEXT : PRINT CHR$ (4)"CLOSE": PRINT CHR$ (7): END 


APPEND-Erweiterung 


7® PRINT CHR$ (A)"APPEND ZZZ": PRINT CHR$ (A)"WRITE ZZ2Z": 
REM bei ProDOS ohne WRITE! 

71 PRINT "123456789" 

72 PRINT CHR$ (4)"CLOSE": PRINT CHR$ (7): END 


80 A$ = "123456789 123456789 123456789 123456789 123456789 
123456789 123456789 123456789 123456789 123456789" 

81 PRINT CHR$ (A)"APPEND YYY": PRINT CHR$ (4)"WRITE YYY": 
REM bei ProDOS ohne WRITE! 

82 PRINT A$ 


83 PRINT CHR$ (4)"CLOSE": PRINT CHR$ (7): END 
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BASF-Flexydisk 1X und 1D 


Erfahrungsbericht von Ulrich Stiehl 


kann sich um Objektivität bemü- 
hen, doch wäre es aus Kosten- 
gründen nicht vertretbar, ein Pro- 
dukt wochen- oder gar monatelan- 
gen Dauertests zu unterziehen. 


Auch wenn uns ein Leserbrief- 
schreiber lobend mit der Stiftung 
Warentest vergleicht, so muß doch 
darauf hingewiesen werden, daß 
eine Computerzeitschrift im allge- 


meinen und der Peeker im beson- 
deren normalerweise ein Produkt 
nicht in demselben Umfang testen 
kann, wie dies bei einem staatlich 
geförderten Testinstitut möglich 
ist. Eine Zeitschriftenredaktion 


Greifen wir als ein Beispiel Disket- 
tenlaufwerke heraus. Wenn man 
einen Tag lang ein Laufwerk in Ver- 
bindung mit verschiedenen Be- 
triebssystemen ausprobiert, Über- 
tragungsraten mißt und allgemeine 
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Eindrücke sammelt, so sind dies 
nützliche Hinweise für den Leser, 
die jedoch andererseits über die 
Robustheit, den geringen Ver- 
schleiß und die Wartungsfreund- 
lichkeit der Laufwerke wenig aus- 
sagen. Diese Eigenschaften könn- 
ten sich nur im monatelangen Ein- 
satz verifizieren lassen. 


Diskettentest 

Wie steht es nun mit dem Testen 
von Disketten einer bestimmten 
Marke? Würde man ein einzelnes 
Muster eines Diskettenherstellers 
erhalten, so könnte man wahr- 
scheinlich überhaupt keine verläß- 
lichen Aussagen machen, denn 
dieses Muster wäre sicherlich vom 
Hersteller vor dem Versand geprüft 
worden. Wäre indessen diese eine 
Diskette zufällig defekt, so könnte 
man natürlich nicht generalisieren, 
daß alle Disketten dieser Marke 
mangelhaft sind. 

Als Forschungsinstitut könnte man 
z.B. 10.000 Disketten kaufen und 
einen auf Diskettenmaterialprüfung 
spezialisierten Ingenieur beauftra- 
gen, alle Disketten mit wissen- 
schaftlicher Akribie zu testen und 
die Ergebnisse statistisch aufzube- 
reiten. Dies würde weit über 
50.000,- DM kosten. Selbst die 
Stiftung Warentest würde hier die 
Waffen strecken. 

Durch unseren Hüthig Software 
Service bezogen wir bislang 
BASF-,„Flexydisk“-Disketten in 
größeren Mengen, die natürlich al- 
le formatiert und bespielt werden 
mußten, was zwar keinen wissen- 
schaftlichen, aber immerhin einen 
praxisorientierten Test darstellte. 
Wie die Vergangenheitsform an- 
zeigt, sind wir inzwischen von den 
BASF-Disketten abgekommen, 
denn der Ausschuß bei 1X- und 
1D-Disketten war viel zu hoch. 


Schuhsohleneffekt: In den ersten 
Monaten dieses Jahres hatten wir 
bei 1X-Disketten einen Ausschuß 
von wahrscheinlich gut 1%, d.h. 10 
von 1000 Disketten wiesen von 
vornherein den — wie ich es später 
nannte — „Schuhsohleneffekt“ auf. 
Gleichviel ob man Schuhsohlen 
oder solche fehlerhaften 1X-Dis- 
ketten in das Laufwerk steckte: Ei- 
ne Formatierung war in beiden Fäl- 
len grundsätzlich unmöglich. 


Klebfilzeffekt: Daneben trat häu- 
fig der „Klebfilzeffekt“ auf. Dabei 
handelte es sich um fabrikneue 
Disketten, die sich nicht richtig 
drehen lassen, weil der Reibungs- 
widerstand der Filzschicht zu groß 
ist. Solche Disketten waren zwar in 
der Regel formatierbar, mußten je- 
doch von vornherein aussortiert 
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werden. Darüber hinaus trat der 
„Klebfilzeffekt" sehr häufig nach 
dem Versand auf. Dazu muß man 
wissen, daß sich eine Peeker-Dis- 
kette in der Lasche eines 3mal ge- 
rillten roten 250g/qm-Broschuren- 
umschlags befindet, der in eine 
Plastikhülle gesteckt wird, die je- 
doch nicht zugeschweißt wird. Das 
ganze wird dann in einem Wellpap- 
pe-Kuvert mit zusätzlicher Steif- 
pappe-Einlage versandt. Bei einem 
Preis von nur DM 20,- für Fortset- 
zungsbezieher verbietet sich eine 
noch aufwendigere Verpackungs- 
form (Hartplastik-Container 0.4.), 
denn sonst würde die Verpackung 
mehr als die Diskette kosten. Au- 
Berdem sind die im Kartonagen- 
handel erhältlichen Spezialdisket- 
tenkuverts erheblich weniger auf- 
wendig. Offenbar sind jedoch 
BASF-Disketten sehr empfindlich 
gegen mechanischen Druck und 
Temperaturschwankungen, was 
beim Postversand den Klebfilz- 
effekt hervorrufen kann. 


Doch zurück zu dem „Schuhsoh- 
leneffekt“. Nachdem ich mich ver- 
stärkt um das Diskettenproblem 
kümmerte — das eigentliche Kopie- 
ren erfolgt nach wie vor außer 
Haus (mit normalen Apple-Origi- 
nallaufwerken) —, wurden in Form 
von sStrichlisten immer mehr 
„Schuhsohlen“ registriert. Diese 
wurden dann über meinen Heidel- 
berger Apple-Händler, über den 
wir damals die Disketten bezogen, 
bei BASF in Ludwigshafen zur Ma- 
terialprüfung eingereicht. Als Ant- 
wort bekamen wir nur die lapidare 
mündliche Mitteilung, daß alle Dis- 
Ketten in Ordnung seien, obwohl 
sie auf keinem unserer benutzten 
Originallaufwerke (Disk-Il-Drives, 
Duodisk und IIc-Drives) formatier- 
bar waren. Uns wurde dann emp- 
fohlen, statt der 1X-Disketten (ein- 
seitig, einfache Dichte) 1D-Disket- 
ten zu erwerben (einseitig, doppel- 
te Dichte). Als dann bei den ersten 
400 von 2000 1D-Disketten 12 
Disketten den „Schuhsohlenef- 
fekt” aufwiesen — dies sind immer- 
hin schon 3% — waren wir gezwun- 
gen, von BASF- „Quality“ -Disket- 
ten Abstand zu nehmen. Aufgrund 
unserer praktischen Erfahrung mit 
weit über 10.000 1X- und 1D-Dis- 
ketten muß man leider konstatie- 
ren, daß hier mit einem Ausschuß 
von über 1% gerechnet werden 
muß. Möglicherweise sind 1D-Dis- 
Ketten anderer Produzenten auch 
nicht besser, doch angesichts der 
relativ hohen Preise der BASF- 
Marken-Disketten ist man wenig 
gewillt, beim Formatieren und Ko- 
pieren größerer Mengen stets ei- 
nen Abfalleimer für den Ausschuß 
bereitzuhalten. P 
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Die Microsoft-Premium-Softcard 
für den Apple Ile 


getestet von Ulrich Stiehl 


Wer das Betriebssystem CP/M 
einsetzen will, kann über die Firma 
Microsoft zwei verschiedene Arten 
von Z80-Karten erwerben: 

1. die „normale“ Softcard, die es 
bereits seit einigen Jahren gibt und 
die eine reine Z80-Prozessorkarte 
ohne Zusatz-RAM darstellt; ein- 
setzbar auf dem Apple Il Plus und 
dem Apple Ile, 

2. die „prämiierte“ Softcard, die es 
seit Ende 1983 gibt und über zu- 
sätzliche Eigenschaften verfügt; 
nur einsetzbar auf dem Apple Ile. 


1. Hardware 


Die Premium-Softcard vereinigt 
die Funktionen von drei Karten: 

(a) Z80-Prozessorkarte mit 6 MHz 
(b) 80-Z/Z-Karte 

(c) 64K-RAM-Karte 

Die Funktionen (b) und (c) werden 
normalerweise von der erweiterten 
80-Zeichenkarte (= Extended 80 
Column Card) wahrgenommen. Da 
sowohl die Premium-Card wie 
auch die erweiterte 80-Zeichen- 
karte nur für den auf der Mitte der 
Platine befindlichen Slot 3 gedacht 
sind, kann man nur entweder die 
eine oder andere Karte benutzen, 
d.h. niemals beide gleichzeitig. 
Wann ist die Anschaffung der Pre- 
mium-Softcard optimal? Genau 
dann, wenn man unter CP/M arbei- 
ten will und noch keine erweiterte 
80-Zeichenkarte für den Apple Ile 
besitzt. Auch dann, wenn man den 
Apple Ile mit erweiterter 80-Zei- 
chenkarte erworben hat, ist die 
Premium-Softcard durchaus in Er- 
wägung zu ziehen, weil sie nur ei- 
nen Slot belegt, während erweiter- 
te 80-Zeichenkarte plus „normale“ 
Softcard zwei Slots in Beschlag 
nehmen. 


Die Premium-Softcard ist unge- 
wöhnlich groß. Zur Installierung ist 
es deshalb erforderlich, daß man 
zunächst die in den benachbarten 
Slots 2 und 4 befindlichen Karten 
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herauszieht, dann die Premium- 
Softcard in den Slot 3 steckt und 
schließlich wieder die benachbar- 
ten Karten einsetzt. Diese Proze- 
dur kann lästig werden, wenn man 
häufig Interface-Karten wechseln 
muß. 


2. Software 


Die Premium-Softcard wird mit ei- 
ner CP/M-80-Masterdiskette ge- 
liefert, die die 64K-Version von 
CP/M 2.26B enthält. Dieses CP/M 
2.26B ist nur für die Premium-Soft- 
card bestimmt und umgekehrt: 

a) Würde man die Masterdiskette 
auf einem Apple Ile booten, der 
nur die „normale“ Softcard enthält, 
so würde die Version 2.26B nicht 
die Existenz der Softcard entdek- 
ken („Can’t find softcard"). 

b) Würde man umgekehrt auf ei- 
nem Apple Ile mit Premium-Soft- 
card das „normale“ CP/M 2.2 boo- 
ten, so würde sich das Betriebssy- 
stem „aufhängen“. 

Daraus folgt, daß man das neue 
CP/M auf alle älteren Programm- 
disketten kopieren muß. Dabei 
verfahre man wie folgt: 

1. CP/M 2.26B booten 

2. „COPY“ starten 

3. Mit „B:=A:/S“ 

CP/M von Drive A auf Drive B ko- 
pieren. 


Neben dem Betriebssystem im en- 
geren Sinne enthält die Masterdis- 
kette folgende Systemprogramme 
und Utilities: 

APDOS: Überträgt Text- und Bi- 
närfiles von einer DOS-3.3-Disket- 
te im Drive 2 („B:“) auf eine CP/ 
M-Diskette in Drive 1 („A:“). 


ASM: Assembliert 8080-Quell- 
code (also keinen Z80-Quellcode 
l.e.S.). 

AUTORUN: Dient dem automati- 
schen Start eines Programms nach 
dem Booten (ähnlich wie START- 
UP unter Pascal und ProDOS so- 


wie „HELLO“ unter DOS 3.3). 
BOOT: Schaltet den Z80-Prozes- 
sor ab und bewirkt den (warmen) 
Bootvorgang eines 6502-Betriebs- 
systems, z.B. von DOS 3.3. An- 
stelle von BOOT kann man auch 
die drei Tasten „Otrl-Offener-Ap- 
fel-Reset“ drücken. (Ctrl-Reset al- 
lein genügt hier nicht und würde 
nur — wie Ctrl-C — einen CP/M- 
Warmstart herbeiführen.) 

CAT: Zeigt im Gegensatz zu 
„DIR“ einen etwas ausführlicheren 
„Catalog“ einer Diskette an, wobei 
z.B. auch die Längen der Dateien 
in K angegeben werden. 
CONFIGIO: GBASIC-Programm 
zur Gerätekonfigurierung; wird bei 
der Premium-Softcard normaler- 
weise nicht benötigt. 

COPY: Dient zum Formatieren und 
Kopieren ganzer Disketten oder 
des Betriebssystems allein (s.o.). 
DDT: Debugger für 8080-Pro- 
gramme (Dynamic Debugging 
Tool); wird im Microsoft-Handbuch 
nicht erklärt. 

DUMP: Bewirkt einen Dump einer 
Datei in hexadezimaler Form (vgl. 
TYPE). 

ED: „Primitiv“-Editor für Textfiles; 
wird im Microsoft-Handbuch nicht 
erklärt. 

GBASIC: Kombination von altem 
MBASIC und GBASIC (G= HGR- 
Grafik) speziell für die Premium- 
Softcard. Das neue GBASIC mel- 
det sich mit „BASIC-80 Rev. 
5.27‘ und „33.063 Bytes free”. 
Man verfügt also jetzt über etwas 
mehr freien Speicher. Ansonsten 
unterscheidet sich die 5.27-Ver- 
sion nur geringfügig von vorange- 
henden Versionen. Beispielsweise 
wurden die Befehle TRON und 
TROFF in TRACE und NOTRACE 
umbenannt (wie bei Applesoft). 
DELETE kann jetzt neben DEL 
zum Löschen von Programmzeilen 
benutzt werden. Dagegen wurden 
die Kassettenbefehle CLOAD und 
CSAVE gestrichen. 

LOAD: Konvertiert eine „HEX"- 
Datei in eine „COM“ -Datei. 

MFT: Dateikopierprogramm für 1- 
Drive-Besitzer (vgl. PIP). 

PATCH: Update-Utility für zukünf- 
tige CP/M-Versionen. 

PIP: Dateikopierprogramm für 2- 
Drive-Besitzer (vgl. MFT). 

STAT: Zeigt den Status von 
Dateien an usw. 

SUBMIT und XSUB: Erzeugt Be- 
fehlsdateien (ähnlich wie EXEC in 
ProDOS, DOS 3.3 und Pascal); 
wird im Microsoft-Handbuch nicht 
erklärt. 


3. Handbücher 


Es werden zwei umfangreiche Lo- 
seblattwerke mit jeweils ca. 400 
Seiten Umfang mitgeliefert. Das ei- 
ne Loseblattwerk („Package“) ist 
mehr für Anwender und GBASIC- 
Programmierer, das anderer mehr 
für Systemprogrammierer gedacht. 
Ausführliche Stichwortregister er- 
leichtern das Nachschlagen. Einige 
der o.g. Utilities werden in den Lo- 
seblattwerken nicht erklärt. Des- 
halb wird zusätzlich in den USA 
das „CP/M User Guide“ von Hog- 
an und in Deutschland das „CP/M 
Handbuch“ von Zaks mitgeliefert. 


4. Allgemeine Eindrücke 


— Die Premium-Softcard ist dann 
ihr Geld wert (je nach Händler DM 
1000,- bis DM 1500,-), wenn man 
die erweiterte 80-Zeichenkarte 
noch nicht besaß oder für sie einen 
Abnehmer findet, weil beide Kar- 
ten nicht gleichzeitig benutzt wer- 
den können. 

— Die Bildschirmsteuerung der 80- 
Zeichenkarte als Bestandteil der 
Premium-Softcard ist hervorra- 
gend gelöst. Dies mag das nach- 
folgende GBASIC-Demo verdeut- 
lichen: 


10 GET X$ 
20 FOR X = 1000 TO 5000: 
30 PRINTX+X%; " - "5: NEXT 


40 PRINT CHR$ (7): REM 35 Sek. 
50 GET X$ 

60 FOR X = 1000 TO 5000: 

70 PRINT “ AA-AA ";: NEXT 

80 PRINT CHR$ (7): REM 19 Sek. 
Unter GBASIC (mit 80-Zeichen- 
karte) wurden 53 resp. 19 Sekun- 
den gemessen. Zum Vergleich 
wurde das gleiche Programm in 
Applesoft mit 80-Zeichenkarte und 
Speedemon-Karte programmiert. 
Die entsprechenden Zeiten waren 
hier 53 resp. 40 Sekunden. Daraus 
folgt, daß die 80-Z/Z-Bildschirm- 
steuerung bei der Premium-Soft- 
card von Microsoft etwa doppelt so 
schnell wie bei der erweiterten 80- 
Zeichenkarte von Apple ist, selbst 
wenn man eine Prozessorkarte wie 
die Speedemon einsetzt. Lediglich 
die Accelerator-Karte kann mit der 
Premium-Softcard mithalten. 

— Unter 6502-Betriebssystemen 
(DOS 3.3, Pascal usw.) kann die 
Premium-Softcard wie eine norma- 
le, erweiterte 64K-Karte eingesetzt 
werden, z.B. als RAM-Disk usw. 
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Peexe:. 
Sammeldisketten 





#1—-#11 


Benutzungshinweise 


Kopieren: Die Sammeldisketten 
sind normale 5,25-Disketten 
(140K), die in der Regel im DOS- 
3.3-Format angelegt sind und mit 
COPYA oder einem anderen Dis- 
kettenkopierprogramm insgesamt 
dupliziert werden können. Ferner 
kann man mit FID oder einem an- 
deren Dateikopierprogramm ein- 
zelne Dateien auf eigene Disketten 
überspielen. Beachten Sie, daß die 
Disketten kein Betriebssystem 
enthalten und deshalb nicht boot- 
fähig sind. Also erst DOS-3.3-Sy- 
stemdiskette mit PR#6 booten, 
dann mit COPYA (s.a. Disk #2) 
oder FID (s.a. Disk #10) die Dis- 
kette ganz oder dateiweise kopie- 
ren. Da die Sammeldisketten in der 
Regel „randvoll“ sind, müssen 
Programme, die Datendateien an- 
legen (z.B. TESTGENERATOR), 
stets auf eigene Disketten umko- 
piert werden. 

Konvertieren: Einige DOS-3.3- 
Disketten enthalten Pascal- oder 
CP/M-Quellprogramme, die zu- 
nächst auf UCSD-Pascal- oder 
CP/M-formatierte Disketten kon- 
vertiert werden müssen. CP/M- 
Besitzer verfügen über das Kon- 
vertierungsprogramm APDOS. Es 
funktioniert wie folgt: 

—- CP/M booten von Drive „A:“ 

— APDOS eingeben 

— Sammeldisk in Drive „B:“ 

—- CAT eingeben 

— FILE=FILE eingeben 

„FILE“ steht für den Namen der zu 
konvertierenden Datei. Näheres 
siehe CP/M-Handbuch. 
UCSD-Pascal-Dateien können mit 
GETDOS (s. Disk #9) konvertiert 
werden. GETDOS funktioniert wie 
folgt: 

— Pascal booten von Drive „4“ 

—- E(xecute) GETDOS 

— Sammeldisk in Drive „5“ 

— „5“ für Sammeldisk-Unit und 

— „4A“ für Pascaldisk eingeben 

— FILE eingeben 

„FILE“ steht für den Namen der zu 
konvertierenden Datei. Warnung: 
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GETDOS zeigt nicht den DOS-Ca- 
talog an; man muß also den Na- 
men bereits kennen. Ferner muß 
auf der (Kopie der) Sammeldisk 
der Name bereits auf 15 Zeichen 
gekürzt worden sein. 


Übertragungen nach ProDOS kön- 
nen mit DOSTOPRO (von „Pro- 
DOS für Aufsteiger, Bd. 2", Be- 
gleitdiskette) erfolgen. Es dürfen 
jedoch nur diejenigen Programme 
übertragen werden, die ausdrück- 
lich für ProDOS angegeben sind. 


Implementieren: Nachfolgend 
werden zu jedem Programm bis zu 
7 Informationen gegeben: 

(1) Zweck: Charakterisierendes 
Kurzstichwort zum Programm. 

(2) Heft/Seitenzahl: Um das Pro- 
gramm sinnvoll nutzen zu können, 
sollte man insbesondere bei den 
unselbständigen Programmen 
(s.u.) den entsprechenden Aufsatz 
und ggf. auch das abgedruckte 
Programm studiert haben. 


(3) Gerätekonfiguration: Erfor- 
derliche Hardware, und zwar II+ = 
Apple Il Plus oder Kompatibler; |le 
= Apple Ile; IIc = Apple Ilc; Videx 
= 80-Z/Z-Karte beim II+; G/K = 
Kleinschreibumrüstsatz beim I|l+ 
(kann oftmals durch Videx-Karte 
ersetzt werden; Großbuchstaben- 
umwandlung mit VERSAL, Disk 
#10, möglich); LC = Language- 
Card beim Il+; 64K-Karte = 80-Z/ 
Z-Karte plus 64K-Zusatzspeicher 
beim Ile. 2-Drive-Programme, 
spezielle Drucker und sonstige Zu- 
satzkarten sind gesondert ver- 
merkt. 

(4) Betriebssystem: DOS 3.3 
(schließt auch Diversi-DOS ein), 
UCSD-Pascal (1.1, 1.2), ProDOS 
(1.0.2 usw.), CP/M (2.2 usw.). 

(5) Programmstart: Bei selbstän- 
digen, d.h. in sich geschlossenen 
Programmen wird der Startbefehl, 
z.B. RUN DEMO, vermerkt. Bei 
unselbständigen Hilfsprogram- 
men, die in eigene Programme 
eingebaut werden müssen, steht 





nur das Wort „unselbständig“, da 
deren Anwendung ohne das 
Durchlesen des entsprechenden 
Programmlistings im Peeker nicht 
möglich ist. 

(6) Sonstiges: Besonderheiten 
beim Aufruf oder der Namensge- 
bung der Programme. 

(7) Errata: Berichtigungen und Er- 
weiterungen mit Angabe der ent- 
sprechenden Peeker-Hefte. 


Disk #1 
(DOS 3.3; Heft 1 + 2/84) 


T.DISASSEMBLER.65C02 
DISASSEMBLER.65C02 

(1) 65C02-Disassembler; (2) Heft 
1/84, S.14; (3) II+ (mit LC) oder 
lle; (4) DOS 3.3; (5) BRUN DIS- 
ASSEMBLER.65C02 


T.ACCEL.WAIT 

ACCEL.WAIT 

T.ACCEL.BOOT 

ACCEL.BOOT 
ACCEL.LC.KOPIERER 
T.ACCEL.LC.KOPIE 
ACCEL.LC.KOPIE 
T.ACCEL.ROM.KOPIE1 
ACCEL.ROM.KOPIE1 
T.ACCEL.ROM.KOPIE2 
ACCEL.ROM.KOPIE2 

(1) Hilfsprogramme für das Pseu- 
do-ROM der Accelerator Ile; (2) 
Heft 1/84, S. 19; (3) Ile; Accelera- 
tor-Karte; (4) DOS 3.3; (5) RUN 
ACCEL.LC.KOPIERER, RUN AC- 
CEL.LC.KOPIE, BRUN ACCEL- 


‚ROM.KOPIE1, BRUN ACCEL- 
‚ROM.KOPIE2 
TURTLE GRAFIK MIT REMS 


TURTLE GRAFIK OHNE REMS 

(1) Turtle-Grafik-Simulierung als 
Applesoft-Programm; (2) Heft 1/ 
84, S. 26; (3) Il+, Ile oder IIc; (4) 
DOS 3.3 oder ProDOS; (5) RUN 
TURTLE GRAFIK OHNE REMS; 
(6) TURTLE GRAFIK MIT REMS 
dient nur zur Veranschaulichung, 
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sollte jedoch nicht gestartet wer- 
den. Weitere Übungsbeispiele in 
Heft 2/84, S. 10. 


DOUBLE.LORES.SOFTSWITCH- 
.DEMO 
DOUBLE.LORES.APPLESOFT- 
.DEMO 
AMPER.DOUBLE.LORES.DEMO 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 
DOUBLE.LORES 

(1) Demos und Applesoft-Erweite- 
rung für Double-Lores; (2) Heft 1/ 
84, S. 32; (3) Ile (mit 64K-Karte) 
oder IIc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN DOUBLE.LORES- 
‚APPLESOFT.DEMO, RUN AM- 
PER.DOUBLE.LORES.DEMO 


HIRES 

T.PRINTHIRES 

PRINTHIRES 

(1) Programm zur Erstellung von 
Grafik-Hardcopies; (2) Heft 1/84, 
S. 40; (3) II+ (mit G/K) oder Ile; 
Parallel-Interface und Epsondruk- 
ker der Serie FX, RX oder MX; (4) 
DOS 3.3 oder ProDOS; (5) RUN 
HIRES; (6) Erweiterete Version auf 
Disk #5 (SUPERDUMP). 


DHGR.APSOFT.DEMO 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES 
T.AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 

(1) Demos und Applesoft-Erweite- 
rung für Double-Hires; (2) Heft 2/ 
84, S. 24; (3) Ile (mit 64K-Karte) 
oder Ilc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN AMPER.DOUBLE- 
‚HIRES.BAS 


INSTRING.TEST 
INSTRING.OBJ 
T.INSTRING.OBJ 
INSTRING.LISA.SOURCE 

(1) INSTRING-Befehl für Ap- 
plesoft; (2) Heft 2/84, S. 40; (3) 
II+, Ile oder IIc; (4) DOS 3.3; (5) 
RUN INSTRING.TEST 
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LOESCHEN.EINES.ARRAYS 

(1) Löschen eines Arrays als Ap- 
plesoft-Unterprogramm; (2) Heft 
2/84, S. 51; (3) II+ (mit G/K), Ile 
oder IIc; (4) DOS 3.3 oder Pro- 


DOS; (5) RUN LOESCHEN- 
.EINES.ARRAYS 


ULTRATERM.ENGLISCH 
ULTRATERM.DEUTSCH 

(1) Zeichensatz-Files für Ultra- 
Term-Video-Karte; (2) Heft 2/84, 
S. 60; (3) II+ oder Ile; UltraTerm- 
Karte; EPROM-Brenner; (4) DOS 
3.3 oder ProDOS 


PRIMZAHLEN.OVERMEYER 
PRIM.OBJO 

PRIM.OBJ1 

PRIM.TEST 
PRIM.TOOLKIT.SOURCE 

(1) Primzahlenprogramm (Haupt- 
gewinn aus Peeker, Heft 1/84, S. 
58); (2) Heft 2/84, S. 70; (3) Il+, 
Ile oder IIc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN PRIMZAHLEN.- 
OVERMEYER 


Disk #2 
(DOS 3.3; Heft 1-2/85) 


T.RAMDISKLC 

RAMDISKLC 

(1) 16K-RAM-Disk für LC; (2) Heft 
1-2/85, S. 8; (3) II+ (mit G/K und 
LC), Ile oder IIc; (4) DOS 3.3; (5) 
BRUN RAMDISKLC; (7) Patch in 
Heft 6/85, S. 69 (Leserbriefe). 


T.IBS.RAMDISKDRIVER 
IBS.RAMDISKDRIVER 
T.AP20.RAMDISKTEST 
AP20.RAMDISKTEST 

(1) Assemblerlisting des RAM- 
Disk-Drivers der AP 20 mit Test- 
programm; (2) Heft 1-2/85, S. 18; 
(3) II+ oder Ile; RAM-Karte AP 20 
der Firma IBS; (4) DOS 3.3; (5) 
BRUN AP20.RAMDISKTEST 


T.QUICKCOPY 

QUICKCOPY 

(1) Disketten-Kopierprogramm un- 
ter ProDOS; (2) Heft 1-2/85, S. 22; 
(3) Ile (mit 64K-Karte) oder Ilc; 2 
Laufwerke; (4) ProDOS 1.0.1; (5) 
BRUN QUICKCOPY; (6) für ande- 
re ProDOS-Versionen mit OF2C:60 
Spurprüfroutine desaktivieren (s.S. 
27, Zeile 954). 
QUICKCOPY.PUFFER 

(1) Programm zur Berechnung der 
Puffergrößen für QUICKCOPY; (2) 
Heft 1-2/85, S. 22; (3) Ile oder IIc; 
(4) ProDOS, jede Version; (5) RUN 
QUICKCOPY.PUFFER 
PRODOS.COPYA 
T.PRODOS.COPYOBJ 
PRODOS.COPYOBJ 
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(1) Kopierprogramm unter ProDOS 
für ein Laufwerk; (2) Heft 1-2/85, 
S. 22; (3) II+ (mit LC), Ile oder IIc; 
(4) ProDOS 1.0.1; (5) RUN PRO- 
DOS.COPYA 


PRODOS.PATCH 

(1) Patch-Programm zur Anpas- 
sung von ProDOS an Apple-Kom- 
patible; (2) Heft 1-2/85; (3) Il+ 
oder Kompatible; (4) DOS 3.3 mit 
ProDOS-Version 1.0.1 vom 1. Jan. 
84; (5) RUN PRODOS.PATCH; (6) 
Patch-Programm läuft unter DOS 
3.3; (7) folgende Zeile muß geän- 
dert werden: 570 CMD = 22. ... 


T.APPLESOFT.FRE 

T.LC.FRE 

LC.FRE 

FRE.TEST 

(1) Schnelle Garbage-Collection- 
Routine mit Assemblerlisting der 
Applesoft-Garbage-Collection; (2) 
Heft 1-2/85, S. 32; (3) II+ (mit LC), 
Ile oder IIc; (4) DOS 3.3; (5) RUN 
LC.FRE.TEST 


T.RAM.FRE 

RAM.FRE 

(1) Schnelle Garbage-Collection 
ohne LC; (2) Heft 1-2/85, S. 32; 
(3) II+, Ile oder IIc; (4) DOS 3.3; 
(5) unselbständig; (7) Berichtigung 
in Heft 8/85, S. 70; neue Version 
(RAM.FRE.NEU) auf Sammeldisk 
#8 


T.SCHIRMDISK 
SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 

(1) Programm zur Abspeicherung 
des 40-Z/Z-Bildschirms auf Dis- 
kette; (2) Heft 1-2/85, S. 42; (3) 
II+, Ile oder Ilc; (4) DOS 3.3; (5) 
BRUN SCHIRMDISK 


T.VIDEXT 
VIDEXT.LISA.SOURCE 

VIDEXT 

(1) Programm zur Abspeicherung 
des Videx-Bildschirms auf Diskette 
(für lle s. Disk #4); (2) Heft 1-2/ 
85, S. 42; (3) II+ mit Videx; (4) 
DOS 3.3; (5) BLOAD VIDEX; 
CALL 768 


GETPAS 

T.GETPAS.ASS 

GETPAS.ASS 

(1) Konvertierung von UCSD-Pas- 
cal- in DOS-Textfiles; (2) Heft 1-2/ 
85, S. 68; (3) II+, Ile oder IIc; 2 
Laufwerke in Slot 6; (4) DOS 3.3; 
(5) RUN GETPAS; (6) GETPAS- 
‚ASS wird vom BASIC-Programm 
gepokt 


GETDOS.PASCAL.SOURCE 

(1) Konvertierung von DOS- in 
UCSD-Pascal-Textfiles; (2) Heft 1- 
2/85, S. 70; Erläuterung s. Einlei- 
tung; (6) s.a. Disk #9. 


COPYDUPDIR.PASCAL- 
‚SOURCE 

(1) Hilfsroutine zum Zero-Befehl; 
(2) Heft 1-2/85, S. 70.; (3) II+ (mit 
LC), Ile oder IIc; (4) UCSD-Pascal 
1.1/1.2; (5) E(xecute) COPYDUP- 
DIR; (6) s.a. Disk #9. 


PRODOS.EDITOR.MACROS 

(1) Makro-Definitionsprogramm für 
Besitzer des PRODOS.EDITOR 
(Hüthig Software Service); (2) Heft 
1-2/85, S. 86; (5) auf Arbeitskopie 
des PRODOS.EDITOR unter dem 
Namen EDITOR.MACROS kopie- 
ren und dann mit RUN EDITOR- 
.MACROS starten. 


Disk #3 
(CP/M; Heft 1-2/85) 


PASS.BAS 

MENUE.BAS 

HELP.BAS 

A.BAS bis N.BAS 

(1) Lohn- und Einkommensteuer- 
Programm für 1984; (2) Heft 1-2/ 
85, S. 45; (3) II+ (mit Videx), Ile; 
Z80-Karte; (4) CP/M 56; (5) nach 
Starten von MBASIC RUN 
"PASS" eingeben; (6) das einzu- 
gebende Passwort lautet 
„PEEKERDUSKE“ (entfällt bei 
späteren Exemplaren der Disk #3) 


Disk #4 
(DOS 3.3; Heft 3 + 4/85) 


TESTGENERATOR 
BAHNFAHRT 

ZU 

TUN.UND.SOLLEN 

IRGEND 

SAETZE 

(1) UÜbungsprogramm für Leg- 
astheniker; (2) Heft 3/85, S. 22; (3) 
II+ (mit G/K), Ile oder IIc; (4) DOS 
3.3; (5) RUN TESTGENERATOR; 
(6) Programm zuvor auf nicht 
schreibgeschützte Datendiskette 
kopieren. 


MULTIPRECISION 

(1) Höhere Rechengenauigkeit bei 
den Grundrechenarten in Ap- 
plesoft; (2) Heft 3/85, S. 32; (3) 
II+, Ile oder IIc; (4) DOS 3.3 oder 
ProDOS; (5) RUN MULTIPRECI- 
SION 


T.WS.TRANSFER 
WS.TRANSFER 
T.WS.TRANSFER.2 
WS.TRANSFER.2 

(1) Konvertierung von CP/M- 
Wordstar- in DOS-3.3-Textdatei- 
en; (2) Heft 3/85, S.35; (3) II+, Ile 
oder IIc; 2 Laufwerke; (4) DOS 
3.3; (5) BRUN WS. TRANSFER; (6) 


WS.TRANSFER.2 ist eine noch- 
mals verbesserte Version, die nicht 
mehr im Peeker abgedruckt wurde 


GETCPM 

(1) Konvertierung von CP/M- in 
DOS-3.3-Textdateien; (2) Heft 3/ 
85, S.43; (3) II+ (mit G/K), Ile oder 
IIc; 2 Laufwerke; (4) DOS 3.3; (5) 
RUN GETCPM; (6) kann für 1 Lauf- 
werk umgeschrieben werden (s. 
Heft) 


PRIM.0.SC.SOURCE 
PRIM.O.BIN 
PRIM.1.5SC.SOURCE 
PRIM.1.BIN 

PRIM.FP 

(1) Primzahlenprogramm (2. Platz 
aus Peeker, Heft 1/84, S. 58); (2) 
Heft 3/85, S.56; (3) II+, Ile oder 
Ilc; (4) DOS 3.3; (5) RUN PRIM.FP 


ACCELERATOR.ABSTELLEN 
(1) Programm zum Abstellen der 
Accelerator-Karte (vgl. Disk #1); 
(2) Heft 3/85, S. 66; (3) Ile; Acce- 
lerator-Karte;, (4) DOS 3.3 oder 
ProDOS; (5) RUN ACCELERA- 
TOR.ABSTELLEN 


T.WILDCARD.TESTI 
WILDCARD.TESTI 
T.WILDCARD.TEST2 
WILDCARD.TEST2 

(1) Testprogramme für Wildcard- 
Plus-Karte; (2) Heft 3/85, S. 72; 
(3) II+ (mit Einschränkungen) oder 
Ile; Wildcard-Plus-Karte; (4) DOS 
3.3; (5) unselbständig 


XPLOT.DEMO 
XPLOT.ROUTINE 
T.XPLOT.ROUTINE 

(1) Impleinientierung des XPLOT- 
Befehls für Applesoft; (2) Heft 4/ 
85, S. 14; (3) II+, Ile oder IIc; (4) 
DOS 3.3; (5) RUN XPLOT.DEMO 


MENUE.GENERATOR 

(1) Programm zur Erstellung von 
Bildschirm-Menüs; (2) Heft 4/85, 
S. 20; (3) II+ (mit G/K), Ile oder 
IIc; (4) DOS 3.3; (5) RUN MENUE- 
.GENERATOR 


T.MACROS.65C02 

(1) Makro-Bibliothek für ältere Big- 
Mac/Merlin-Versionen zur Simu- 
lierung der 65C02-Befehle; (2) 
Heft 4/85, S. 30; (3) II+, Ile oder 
Ic; (4) DOS 3.3; Big-Mac oder 
Merlin; (5) unselbständig 


TERMINAL 

TERMINAL.B 

T.TERMINAL.B 

(1) Terminal-Programm für Mail- 
boxen; (2) Heft 4/85, S. 34; (3) II+ 
oder Ile; Serielle Schnittstelle mit 
6850-Baustein; (4) DOS 3.3; (5) 
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RUN TERMINAL; 
für Super-Serial-Card in Heft 6/85, 
S. 72 (Disk #6) 


(7) Anpassung 


CAT.ARRAY 

CAT.SAVER 
EINTRAG.SUCHER 
EINTRAG.ANALYSE 
PRODOS.READER 
T.PRODOS.READER.OBJ 
PRODOS.READER.OBJ 

(1) Beispielprogramme für Pro- 
DOS; (2) Heft 4/85, S. 41; (3) II+ 
(mit G/K und LC), Ile oder Ilc; (4) 
ProDOS; (5) RUN CAT.ARRAY; 
RUN CAT.SAVER; RUN EIN- 
TRAG.SUCHER; RUN EINTRAG- 
‚ANALYSE; RUN PRODOS- 
‚READER 


MOUSESTUFF.PASCAL- 
‚SOURCE 
MOUSE.ASS.PASCAL.SOURCE 
TESTMOUSE.PASCAL.SOURCE 
DRAWMOUSE.PASCAL- 
.SOURCE 

(1) Implementierung der Maus in 
UCSD-Pascal 1.1/1.2 (s.a. Disk 
#9); (2) Heft 4/85, S. 48; (3) Il+, 
le oder IIc; Apple-Maus; (4) 
UCSD-Pascal; (5)  Ef(xecute) 
TESTMOUSE oder Ef(xecute) 
DRAWMOUSE (nach _Installie- 
rung); (7) „INDIRECT .WORD 0" 
(S. 57) löschen und statt dessen 
zu Beginn „INDIRECT .EQU 04" 
einsetzen, falls Mausprogramm mit 
atem 6502-Prozessor benutzt 
wird. 


INALL.DATA 

(1) Eingabe von beliebigen Strings 
für Applesoft; (2) Heft 4/85, S. 70 
und 5/85, S. 50; (3) Il+, Ile oder 
IIc; (4) DOS 3.3 oder ProDOS; (5) 
RUN INALL.DATA 


SCREEN80.DATA 
SCREEN80.SAVER 

(1) Programm zum Ausdrucken 
(SCREEN80.DATA) oder Abspei- 
chern (SCREEN80.SAVER) des 
Ile/lic-80-Zeichenbildschirms (für 
Videx s. Disk #2); (2) Heft 4/85, S. 
33 und 76; (3) Ile oder IIc; (4) DOS 
3.3 oder ProDOS; (5) RUN 
SCREEN80.DATA;, danach CALL 
768 (Drucker in Slot 1 einschal- 
ten); RUN SCREEN80.SAVER 


Disk #5 
(DOS 3.3; Heft 5/85) 


T.FM.BSP 

FM.BSP 

(1) Beispiele zum Aufruf des File- 
Managers; (2) Heft 5/85, S. 6; (3) 
II+, Ile oder IIc; (4) DOS 3.3; (5) 
unselbständig; vgl. Disk #10 (AS- 
.FILER) 
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T.SLOTRAMDISK 
SLOTRAMDISK 
SLOTRAMDISK.HELLO 

(1) RAM-Disk-Driver für Balfer-In- 
terface; (2) Heft 5/85, S. 12; (3) 
le; 64K-Karte; Balfer-Interface; 
(4) DOS 3.3; (5) INIT SLOTRAM- 
DISK.HELLO (danach SLOTRAM- 
DISK auf die neue Diskette ko- 
pieren) 


PLOT.2.O 

T.PLOT.B 

PLOT.B 

PLOT.PROTECTOR 

(1) Programm zur Darstellung ma- 
thematischer Funktionen; (2) Heft 
5/85, S. 17; (3) II+ (mit G/K), Ile 
oder IIc; (4) DOS 3.3; (5) EXEC 
PLOT PROTECTOR; (7) Korrektur 
der Tippfehler (Disk #5 war in Ord- 
nung) in Heft 9/85, S. 69 


T.CONVERT560 

CONVERT560 
CONVERT560.DEMO 

(1) Wandelt ein Double-Hires-Bild 
in zwei normale Bilder um; (2) Heft 
5/85, S. 25; (3) Ile (mit 64K-Karte) 
oder IIc; (4) DOS 3.3; (5) RUN 
CONVERT.DEMO (nur in Verbin- 
dung mit Epson FX-80/8132W) 


T.EDA 

EDA 

(1) Disassembler für „geheime“ 
6502-Opcodes; (2) Heft 5/85, S. 
31; (3) II+ oder Ile; (4) DOS 3.3; 
(5) BRUN EDA 


TRANSCEND.PASCAL.SOURCE 
(1) Einbindung von transzenden- 
ten Funktionen in UCSD-Pascal 
1.1/1.2 (s.a. Disk #9); (2) Heft 5/ 
85, S. 35; (3) II+, Ile oder IIc; (4) 
UCSD-Pascal; (5) als Unit mit Seg- 
ment-Nr. 29 im SYSTEM.LIBRARY 
integrieren 


T.BLOCKTRACER 
BLOCKTRACER 
T.BLOCKTRACER!1 
BLOCKTRACERI 

(1) Tracer für Blockzugriff unter 
ProDOS 1.0.1; (2) Heft 5/85, S. 
51; (3) II+ (mit LC), Ile oder IIc; (4) 
ProDOS 1.0.1; (5) BRUN BLOCK- 
TRACER; (6) BLOCKTRACER1 für 
RAM-Disk bei Ile (mit 64K-Karte) 
oder IIc 


FORMAT.LC 
FORMAT.LC.START 

(1) Formatierung von Disketten un- 
ter ProDOS 1.0.1; (2) Heft 5/85, S. 
56; (3) II+ (mit LC), Ile oder IIc; (4) 
ProDOS 1.0.1; (5) RUN FOR- 
MAT.LC.START 


T.DISKDRIVER.DEMO 
DISKDRIVER.DEMO 

(1) Demo für direkten Zugriff auf 
ProDOS-Disk-Driver; (2) Heft 5/ 
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85, S. 51; (8) II+ (mit LC), Ile oder 
IIc; (4) ProDOS 1.0.1; (5) BLOAD 
DISKDRIVER.DEMO; CALL 768 


RANDOM.DEMO 

(1) Echte Zufallszahlen für Ap- 
plesoft; (2) Heft 5/85, S. 69; (3) 
II+, Ile oder Ilc; (4) DOS 3.3; (5) 
RUN RANDOM.DEMO; (6) Test- 
programm erzeugt 500.000 Zu- 
fallszahlen und läuft deshalb meh- 
rere Stunden. 


COLUMN80.DEMO 

(1) Beispiel zur Lösung des HTAB- 
Problems beim Ile/llc; (2) Heft 5/ 
85, S. 69; (3) Ile (mit 80 Z/Z) oder 
Ilc; (4) DOS 3.3 oder ProDOS; (5) 
RUN COLUMN80.DEMO 


SUPERDUMP.EPSON 
SUPERDUMP.IMAGEWRITER 
SUPERDUMP.BILD 
T.SUPERDUMP 

SUPERDUMP 

EPSON 

IMAGEWRITER 

(1) Hardcopy-Programm für im 
Text spezifizierte Rechner/Druk- 
ker/Interfaces; (2) Heft 6/85, S. 


IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 
Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 
Mainboard XT-640 K (on Band) f. 16 Bit + 8 Stots Leerkarte 
Disk Controller leer (f. 2x360 KB-Drives 
Disk Controller it (f. 4 x 360KB-Dri Ives) 
Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 
Color RGB + Video arnaidi Leerkarte 
Parallel Printer Leerkarte 
512K-RAM Leerkarte 
Multifunktions Leerkarte (Printer, Ser, Game gepuffert) 
Disk-Muliti /O Leerkarte, (f. 3x360 K-Drive, 2xRS 232 1xpar. Printer 
Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 
384 K-Mı nktions Leerkarte, (1x par. Printer Int., Game/Joystiek 
Port, Real/time Clock/Kalender gepuffert) 
Prototype/lLochraster Leerkarte, durchkontaktiert 
2 i K (b 


Lie j h - vollbest. und geprüft 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 
sont w.o 
Mainborard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 


Chip-Aufrüstung (9 —n einzeln geprüft 
Disk-Controller gepr. (f. 2x360 KB Drives) 
Disk Controller gepr. (f. 4 x 360 KB-Drives) 
Monochrome Karte gez üft 
Monochrome Graph. r. Printer m gepr. (Hercules comp.) 
Color RGB + Video Graphikkarte gep: 
Parallel Printer-Karte gepr. o. Kabel Extra Kabel = 49,-) 


169,-- 
384K-Multifunktionskarte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/' Bonsler/Uhe Softw 345,-- 

Itifun ktionskarte (P: ar. + Ser. + Uhr gepuffert) ge: 289 
Disk Multi /O Karte (f. 2x360 K-Drive, 2xRS 232, 1x ne Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) 

statur dt. oder ASCII + 15er Block 

135W-Netzteil mit eingebautem Bet. Kurzschlußfest 


C-FD 558 -2x40 Tr. o. Geh 

1,2714 31 7673: 717 ZU Te YeT3 102 
XT-256, 16 bit- Rechner (incl. ee nd 128K- Ran im 
IBM-look-like Met.-Gehäu +135 W-Netzt. gepr. 
XT-256, w.o.+ Disk Contr. 36OKBDrVa + Gsler RGB+Video 
Graphic-Karte 
XT-256, w.0. jedoch statt Color mit Monochrome Kart 
XT-256, w.o. jedoch mit KlnocksomeBanlan-Prinier-Karte 
IMB-PC-Systemeinheit + Laufwerk 
IMB deutsche DIN-Tastatur 



























































IBM-Bildschirm Color 1.698 -- 


PC 10-Commodore dt. Tast 
GENIE 16 C (256K-RAM bis 640K auf M-boaard) 2 x erh 107117: 


ser. + par. Printer - Int., + Farbgraphik-16 Color-Karte 
6 slots, - incl. dt. Tastatur und MS-DOS 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 





Motherboard Il 48K leer, durchkont. mit Lötstopplack 59,-- 
Motherboard Il w.o. jedoch 64 K leer 78,-- 
M-board Il = gesockelt, vollbest. + gepr 349,-- 

Motherboard Il .n gesockelt, vollbest.+gepr 408,-- 
M-board Il 64K + Z80 CPU, gesockelt, v. best. + gepr 438,-- 
M-board lie 64K vollbestückt + gepr. 449,— 
APOLLO II Kunststoff-Leergehäuse 85,-- 
APOLLO Il Gehäuse incl. Funkt.-Tast 217, 
Superstarkes Netzteil — Kurzschlußfest 115,-- 


Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte 


PAL-Modulatorkarte, je 18,95 
Entwicklungslochraster-Leerplatine durchkontaktiert 27,— 
16K-Speicher-Karte geprüft 79,-- 
APPLE orig. 16K-Language Karte gepr 125,-- 
Z-80 CPU-Karte geprüft 74,-- 
Controller DOS 3.3-Karte geprüft 73,-- 
Auto-Controller DOS 3.2/3.3-Karte gepr 119,-- 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 288,-- 
Parallel-Drucker-Karte geprüft 74,-- 
Par.-Drucker-Grappler comp. Leerplatine 27,-- 
Par.-Drucker Karte-Grappler comp. geprüft 169,-- 


8bit par. Grappler-Int. + 64K-Buffer + Kabel gepr 445,-- 


Seriell-Interface-Karte V24 geprüft 99,-- 
Super-Seriell Leerkarte 34,-- 
Super-Seriell-Interface Karte gepr 169,-- 
80-Zeichen/24-Zeilen-Karte geprüft 119,-- 
802/24Z-Karte + Softswitch-Schalter Leerplatine 24,-- 
802Z/24Z-Karte + Softswitch-Schalter geprüft 138,-- 
802/24Z-Softmitch Karte gepr. für Ile 49,-- 
802/242 +64K-Ram + Softsw. Leerkarte f. lle 27,-- 
802/24Z + 64K-Ram + Softsw.-Karte best. +gepr. f. Ile 79,- 

lEEE-488 Int. Karte gepr 345,-- 
PAL-Modulator/Color-Karte geprüft 99,-- 
PAL-RGB-Color Karte gepr 149,-- 
128K-Speicher-Leerkarte 29,-- 
128K-Speicher-Leerkarte + Software + Manual 99,-- 


128K-Speicher-Karte + Software geprüft +Manual 299,-- 
256K-Speicher Leerkarte 34,-- 
256K-Speicher Leerkarte + Software +Manual 109,-- 
256K-Speicher-Karte + Software geprüft +Manual 455,-- 
Maus incl. Software 179,-- 
EPROM-Burner (2708/16/32/64) geprüft 119,-- 
6522-VIA Karte geprüft 135,-- 
Clock Karte geprüft 97 
Speech Karte geprüft 56,-- 
Musik Karte geprüft 107,- 
Wild Karte geprüft 95,-- 
AD/DA-8Bit Karte ge ec 375,-- 
Accelerator Karte gep 775,- 
lodem Euronorm- Karte gepr. + Software + Man 397,-- 
UHF/TV-Modulator universell 27,50 
Lüfter anclipsbar (220 V) 95,-- 
Dataphon s21d Akustikkopnler-FTZ mit RS 232/V24 Anschl 275,-- 


1 

L\0/880777 777: 4 er Gent sähe: + FT. 689.- 

et Au +DisklIF + Contr + 12”-Mon 1.379,- 
ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 

15er-Bloc! 4 mit Funkt.-Tasten im „IBM-look like” Gehäuse 

APOLLO// ASKF (48K) w.o. + Disk II F + Contr 





Aufpreis von 48K zu 64K +Z80 CPU 


Appel lie 128K + Frriz Karte + Softw 2.235,— 

PPLE-DuoDisk, 2 x 143 KB + Controlle: 2.185,-- 
APPLE- Diek//Laufwerk 2 Contr. + Kab. Dos 3 3 + ProDOS orig. 777, —— 
APPLE-Disk//(2. Laufwerk) orig 666,-- 
Epson-Duodisk II F- Slimline 2x143 KB mit Geh 799,-- 
Disk//+Contr. + Kabel DOS 3.3 an) im Geh 555,-- 
Disk//(2. Laufwerk, Siemens) im Ge 486, -- 
Disk//F + Contr. + Kab. DOS 2. 3 nr Höhe) im Geh 419,-- 
Disk//F (2. Laufwerk, 1/2 Höhe) i. Geh 349,-- 
Erphi DuoDisk 1,2 MByte incl. Netzteil + Contr. 1.789,-- 


APPLE-Pascal Reference + Operating Manual engl 
APPLE-Pascal USCD 1.1. Disks + Manuals orig 
APPLE-Pascal Reference Hb. dt 

APPLE-Pascal Language Hb. dt 


APPLE-Forth Manual engl. 

APPLE-Fortran Manual engl 

CP/M-Software Vol. | + Il, Manual engl 

APPLE // Pascal-Handbuch deutsch (te-wi) 

APPLE //-Anwenderhandbuch deutsch (te-wi) 
6502-Programmier-Handbuch deutsch 
6502-Anwendungen Handbuch deutsch (Rod. Zaks) 





APPLE//c (128K) dt. Tastatur 2.495,-- 
Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb 489,-- 
Macintosh System (128K) 6.745,-- 
Macintosh System (512K) 7.495,-- 
Macintosh Umrüstung von 128K auf 512K 678,— 
SANYO MSX-Computer MPL 64 dt. Tastatur 685,- 

Epson LX 80 F/T, 8 Bit/par. 1002/S. mit der Super N.L.Q. Qualität 987,- 

EPSON GX 80+ 939,- 

EPSON RX 80+, 8bit/parallel 849,-- 
EPSON RX BOF/T+, 8bit/parallel 999,-—- 
EPSON RX 100+, 8bit/parallel 1.279,-- 
EPSON FX 85F/T+, 8bit/parallel 1.299,-- 
EPSON FX 105+, 8bit/parallei 1.719,-- 
EPSON LQ 1500+, 8bit/parallel 3.269,-- 
EPSON Traktoraufsatz für FX 80 129,50 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 169,-- 


MX 80/82, FX/RX 80 Spezialfarbband-Kassette 15.95 
BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod 

Seikosha SP 800 NLP (A=EPSON-, i=1BM-Comp. 

STAR SG10, NLQ- + IBM-Zei chensatz, 8bit/par. 






Zenith ZVM 123 gr. 12" oder Zenith ZVM or. 12” 15 MHz 277,-- 
Zenith ZVM 124 gr. 12" 22 MHz IBM-Comp 395,-- 
SANYO DM 2212 12” orange 15 MHz 265,- 

SANYO .n MaRooneiDer Monitor 12”, gr. IMB-Comp 587,50 


Monochro 12”-Monitor entspiegelt gr. o. or. 22 MHz 389,-- 
Diskatten ” ok + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stück; 
5'«"Verstärkt BASF 3M FUJI DATA 
SCOTCH MAGNE 
TICS 
3,99/ 3,79 2,86/2,76 
4,19 3,99 4,88/ 4,58 4,27/ 4,07 3,96/3,76 2,75/2,65 
5,89/ 5,69 6,38/ .. 5,87/ 5,67 4,76/4,46 3,85/3,65 
5,79/ 5,59 7,18/ 
7,19 7,09 7,88/ 7 148 a 7,7 
13,89/12,89 ernaler 
4,49/ 4,39 


Das 
sind 
Preise! 


4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 
4,79 4,59 8,58/ 

7,09/ 6,89 9,88/ 9,58 10,17/ 9,77 
4,49/ 4,39 6,68/ 6,48 


10,99/ 9,99 10,08/ 9,88 7,87/ 7,57 
14,99/14,29 15,98/15,18 


3M-Scotch 5',." Flüssig-Re en (2 Disk.) zweiseitig 48,95 


BASF 5. Reinigungsdi skette © 48,50 
5'/4” Disketten-Archivbox für 10 Disks ( St 10 St.) 4,75/43,50 
5'4" Disketten-Archivbox für 15 Disks 3M 19,95 


5 A zur Pak kasten Ku Ne 80 Disk) 26,50 


«" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
5 4" Dis i KR uchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 BI. en ier (24 cm x 12” einf.) weiß oder grün/weiß perf 45,-— 
4000 Et.-Aufkl. doppelr. (107 x 25 mm auf 240 x 12” perf. Trägerp.) 66,50 
16000 Etı ketien- Auriaber rw 249,-- 


4000 Etik.-Aufkl. € 36 mm auf 125 x 12" p 


VEEDBRE HAMEG abLa: 
Bei Vorauszahlung frei en unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Mi u. Sa v. 10-14 h, la Sa v. 10-18 h 
Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten 
GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
unsere eigene Service-Werkstatt. 
REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus 
Sprechen sie mit Kosten: auf Wunsch! 


eri. Trag.) 






Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (07 61) 276864 
Bauelemente - Bausätze - uP's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 
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22; (3) II+, Ile oder IIc; Drucker; 
(4) DOS 3.3; (5) RUN SUPER- 


DUMP.EPSON  (SUPERDUMP.- 
IMAGEWRITER); (7) Anpassung 
für IIc in Heft 8/85, S. 50 


MACMONITOR 

Der MACMONITOR aus Heft 5/85, 
S. 41, istnoch als 3,5-Zoll-Diskette 
erhältlich (solange Vorrat reicht) 


Disk #6 
(DOS 3.3; Heft 6/85) 


HELLO 

ASMDIV 

(1) Installierung von Diversi-DOS 
2-C; (2) Heft 6/85, S. 72; (3) Il+, 
Ile oder Ilc; (4) Diversi-DOS 4-0; 
(7) Installierung unter DOS 3.3 ist 
in Heft 10/85, S. 69 (Leserbrief) 
beschrieben 


CURSOR1 

T.CURSOR1 

CURSOR2 

T.CURSOR2 

LINIE 

T.LINIE 

VIERECK 

T.VIERECK 

BOX 

T.BOX 

HINTERGRUND 
T.HINTERGRUND 

PAGE.SWAP 

T.PAGE.SWAP 

(1) Hilfsprogramme für Grafik-Edi- 
tor; (2) Heft 6/85, S. 6; (3) Il+, Ile 
oder IIc; (4) DOS 3.3; (5) unselb- 
ständig; (7) Hinweis zu den Curso- 
ren in Heft 10/85, S. 63 


WANDERNDER.STRICH 
KOMPRESSOR.DEMO 

KREIS.1 

KREIS.2 

KREIS.3 

FLIPPER 

T.FLIPPER 

KOMPRESSOR 
T.KOMPRESSOR 

(1) Pseudo-Double-Hires; (2) Heft 
6/85, S. 16; (3) II+ (lle oder IIc); 
(4) DOS 3.3; (5) RUN WANDERN- 
DER.STRICH; RUN KOMPRES- 
SOR.DEMO; RUN KREIS.1; RUN 
KREIS.2; RUN KREIS.3 


OLYMPIA 

T.OLYMPIA 

(1) Hardcopy-Programm für Ty- 
penraddrucker; (2) Heft 6/85, S. 
34; (3) II+ oder Ile; Olympia ESW 
100 RO; (4) DOS 3.3; (5) BLOAD 
OPLYMPIA; CALL 32768 


FOURIER.MAIN 
FOURIER.SYN 
FOURIER.SPEC 
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(1) Programm zur Fourier-Analyse; 
(2) Heft 6/85, S. 38; (3) II+ (mit 
Videx), Ile oder IIc; Drucker mit 
Grafik-Interface; (4) DOS 3.3; (5) 
RUN FOURIER.MAIN; (7) in Heft 
9/85, S. 69 sind 20 Zeilen nachge- 
tragen, die im Listing (nicht auf 
Diskette) fehlten 


AS.ERWEITERUNG 
T.AS.ERWEITERUNG 
AS.ERW.PROSTART 
AS.ERW.PRO 

T.AS.ERW.PRO 

(1) Applesoft-Erweiterungen; (2) 
Heft 6/85, S. 43; (3) II+, Ile oder 
IIc; (4) DOS 3.3 oder ProDOS; (5) 
BRUN AS.ERWEITERUNG; (6) für 
ProDOS gilt RUN AS.ERW.PRO- 
START 


INSTALL.PASCAL.SOURCE 
RAMDISK94.PASCAL.SOURCE 
INIT.PASCAL.SOURCE 

(1) RAM-Disk-Driver für UCSD- 
Pascal 1.1; (2) Heft 6/85, S. 48; (3) 
Ile (mit 64K-Karte) oder Ilc; (4) 
UCSD-Pascal 1.1, nicht 128K-1.2! 
(5) Disk #9 enthält fertig assem- 
blierte Version, die mit E(xecute) 
INSTALL gestartet wird; (7) im Li- 
sting (nicht auf Disk #6) wurde ein 
Teil weggeschnitten, der in Heft 7/ 
85, S. 52 nachgetragen wurde 


RAMDISK.INIT.DOS 
AUXDRIVER 

T.AUXDRIVER 

MOVEDRIVER 

T.MOVEDRIVER 
RAMDISK.FORMATTER 
T.RAMDISK.FORMATTER 

(1) RAM-Disk-Driver für CP/M 2.2; 
(2) Heft 6/85, S. 56; (3) Ile mit 
64K-Karte; (4) CP/M 56K (nicht 
60K oder 64K!); (5) s. Heft 


SOLITAIRE.START 

SOLITAIRE 

SOLITAIRE.B 

T.SOLITAIRE.B 

(1) Programm zur Lösung des Soli- 
taire-Problems; (2) Heft 6/85, S. 
64; (3) II+ (mit G/K), Ile oder IIc; 
(4) DOS 3.3; (5) RUN SOLITAIRE- 
‚START 


Disk #7 
(DOS 3.3; Heft 7/85) 


PYRAMID.PITTY 

T.PYR.PITTY.O 

T.PYR.PITTY.1 

PYR.PITTY.O 

PYR.PITTY.1 

PYR.PITTY.BACK 
PYR.PITTY.SHAPE 

(1) Ein Reaktionsspiel; (2) Heft 7/ 
85, S. 6; (3) II+, Ile oder IIc (keine 


externe Tastatur); (4) DOS 3.3 
oder ProDOS; (5) RUN PYRAMID- 
‚PITFT 


T.MEGAWARP.REL 
MEGAWARP.REL 
T.MEGAWARP.9900 
MEGAWARP.9900 
T.SPEEDTEST 

SPEEDTEST 

(1) RAM-Disk-Testprogramme für 
die AP33 von IBS; (2) Heft 7/85, S. 
8; (3) II+ oder Ile; AP33-Karte; (4) 
ProDOS; (5) unselbständig: BRUN 
INSTAL (von IBS-Diskette); dann 
BRUN MEGAWARP.990OO (oder 
MEGAWARP.REL); (6) Beschrei- 
bung im Heft beachten. 


FORMAT 

T.FORMAT.OBJ 

FORMAT.OBJ 

(1) Formatierungsprogramm für bis 
zu 80 Spuren; (2) Heft 7/85, S. 20; 
(3) II+ (mit G/K), Ile oder Ilc; (4) 
DOS 3.3 oder ProDOS; (5) RUN 
FORMAT; (7) Optimierung der 
Armbewegung im Heft 9/85, S. 69 


BITEDITOR 

NORMAL 

FETT 

FETT.INVERSE 

(1) Editor zur Erstellung eines Zei- 
chensatzes; (2) Heft 7/85, S. 29; 
(3) II+ mit Videx; EPROM-Bren- 
ner; (4) DOS 3.3; (5) RUN BITEDI- 
TOR; (6) NORMAL, FETT und 
FETT.INVERSE sind Zeichensatz- 
Files 


PASTOPRO.1D 

PASTOPRO.2D 
T.PASTOPRO.O 

PASTOPRO.O 

(1) Übertragung von UCSD-Pas- 
cal-Textdateien nach ProDOS; (2) 
Heft 7/85, S. 62 (Pascal-Preisaus- 
schreiben); (3) II+ (mit LC), Ile 
oder IIc; (4) ProDOS; (5) RUN 
PASTOPRO.1D (oder PASTO- 
PRO.2D für 2 Laufwerke); (6) PAS- 
TOPRO.O wird durch PASTOPRO 
automatisch gepokt 


T.CONVERT 

CONVERT 

(1) Umwandlung von Hex- (32 
Bits) in FP-Zahlen; (2) Heft 7/85, 
S. 69; (3) II+, Ile oder IIc; (4) DOS 
3.3 oder ProDOS; (5) BRUN CON- 
VERT 


T.VORLESER 

VORLESER 

(1) Akustische Ausgabe von Hex- 
Dumps mit der Sprachkarte 
S.A.M.; (2) Heft 7/85, S. 71; (3) 
II+ oder Ile; Sprachkarte S.A.M.; 
(4) DOS 3.3; (5) BRUN VOR- 
LESER 


Disk #8 
(DOS 3.3; Heft 8/85) 


HELLO 

ASMDIV 

(1) Installierung von Diversi-DOS 
4-C; (2) Heft 8/85, S. 68; (3) Il+, 
Ile oder IIc; (4) DOS 3.3; (5) RUN 
HELLO; (6) Bitte $30,00 an DSR 
überweisen. 


DISKTEST 

DISKTEST.START 

T.DISKTEST 

(1) Testprogramm für Disketten 
und Laufwerke; (2) Heft 8/85, S. 6; 
(3) II+, Ile oder IIc; (4) DOS 3.3; 
(5) EXEC DISKTEST.START 


KOPY 

BATCHKOPY 

T.GETSETINFO 

GETSETINFO 

BILDTEST 

(1) Datei-Kopierprogramm für Pro- 
DOS; (2) Heft 8/85, S. 18; (3) II+ 
(mit LC), Ile oder IIc; (4) ProDOS, 
BASIC.SYSTEM 1.1; (5) RUN KO- 
PY oder RUN BATCHKOPY; (6) 
GETSETINFO wird von KOPY/ 
BATCHKOPY gepokt, BILDTEST 
dient nur als Demo 


T.BOX.COPY 

BOX.COPY 

T.HSCRN 

HSCRN 

GRAF.QUATTRO.1 

(1) Hilfsprogramme für Grafik-Edi- 
tor; (2) Heft 8/85, S. 24; (3) II+, Ile 
oder IIc; (4) DOS 3.3; (5) unselb- 
ständig; (6) GRAF.QUATTRO.1 ist 
eine Zus>mmenstellung aller Graf- 
quattro-Routinen 


T.DOUBLE.LORES 
DOUBLE.LORES 
DOUBLE.LORES.DEMO 

(1) Double-Lores-Applesoft-Er- 
weiterung; (2) Heft 8/85, S. 32; (3) 
Ile (mit 64K-Karte) oder IIc; (4) 
DOS 3.3; (5) RUN DOUBLE.LO- 
RES.DEMO 


AD-START.CMD 

HMENUE.CMD 
AUFNAHME.CMD 
AUFMASKE.CMD 
AUSMASKE.CMD 
EDITFNAM.CMD 
SUCHFNAM.CMD 
SUCHVNAM.CMD 
SUCHBEME.CMD 
SCHREIBA.CMD 
SCHREIBL.CMD 

LOESCH.CMD 

SUCH.CMD 

(1)  Adreßverwaltungsprogramm 
unter dBase; (2) Heft 8/85, S. 40; 
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Wollen Sie mit Ihrem MACINTOSH 


grafisch arbeiten? 











Das MacTablett von 
Summagraphics 
Kl 






Georg-Brauchle-Ring 68 

D-8000 München 50 
LIMITED Telefon 089/1415077 
Niederlassung Deutschland Telex 5214793 









ke R 
oste me] eamsler Nekekesrein 


Mac 512 Kb... besonders preisgünstig ! 


d für APPLE Il u. Ile 














[15] Mac Speichererweiterung auf 512 Kb S98.— 
. u Spple //a mit 2 Laufwerken + Contr.. 3285.- 
Voll Apple tauglich. = Oipplie //ce mit 2 Laufwerken + Contr. + 
Für 2 Disc-Drive Be Eresrung Drucker [NLQ,120 Zchn,2Hb Puffer]+intr.2498.- 





Monitor 15 MHz 12” bernsk./grün...ucnessnennn 298.- 





# Best.-Nr. 94014 
: NUR DM 48,90 
Fordern Sie unseren kostenlosen Katalog an. 


4 9“ Monitor. Monochrom grün ent- 
spiegelt. Auflösung über 20 MHz. 
BAS/Video-Eingang. Eigenes Netz- 
teil 220 V. Passend für alle Apple und 





Monitor 28 MHz 12” ” RR TR 348.- 
Erweiterte 898 Zeichenkarte [//e).......... 








Opplae //c + zweites Laufweark..cucasssnsnen 3398.- 









Opplie //c + zweites Laufwerk + Drucker 
{nLO, 129 Zchn/s, 2Kb puffer)+ Interf....... 4838.- 





Neu Mac-Video ein Interface Tür EroßSmeaite 





Neu : Mac-Tablett das Graphiktablett für den Macintosh 


Spitzenpreise für Mac-Softwarel!!i! Liste anfordern!!!! 


Mac-Disketten 10 Stok .„....unnnnunnunen. nur 99.- 
Sonderposten Apple //c Monitore mit Ständer 

Er ss lange Vorrat TOIERE..: mr irurensasnnngheene entre nur 598,- 

OKIDATA, Drucker Apple, Epson+IBM-kompatibel !! 


| Okimate 20 : über 100 Farbstufen, Schönschrift 2Kb Puffer 
[0125] nur 898,- DM 


ol Okimate 192 160 Zchn/s, 8 Kb Puffer ( auch für Mac) !! 


gu Ständig Dorführgeräte zu Sonderpreisen !! 
u a ı lu lud ı N BTX mit //c+//e ständig Vorführungen ! 


I unser Bürosparangebot: 


| Preise inkl. Mist. | 
Schulpreise a.Anfrage| Anrufbeantworter mit Fernabfrage 0.FTZ Nur... 399.- 


die aktuellsten Preise im Mailboxservice: 061 74 / 5355 


KFE wiesenstr. 18 6240 Könissteın & 06174 / 3033 BTX=921069» 








Commodore und ähnliche. 
Best.-Nr. 65032 NUR DM 199,90 


EEE Garantie 1 Jahr. Eig. Kundendienst. 







Bühler Computer, Postfach 32, 7570 Baden-Baden, Tel. (07221) 71004 


Bühler Shop, Waldstraße 46, 7500 Karlsruhe 














® Frei-Programme (Public Domain) Liste mit über 5000 
Programmen, DM 10,- (bar oder Briefmarken) 


Gomputer-unterstützies Lernen 


® Programme für Apple Ile/lIc/teilw. + Maschinenschreiben, Basic, Wortschatz- 1 
trainer, Computer-Simulator, Schnellesen, Rechtschreibtrainer, Deutsche a 
Grammatik, Mathe, Physik/Chemie, Fremdsprachen, Fahrschule, usw. 


® Demo-Diskette mit 9 Programmen DM 10,- INTUS SOFTWARE 
Kaiserstr. 21. 7890 Waldshut, Telefon: 07751 - 7920 








® Gesamtkatalog kostenlos. 
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Computerbucher 


diegehen, für Computer 
diekommen. 





Wolfgang Eggerichs : Roman 


Hüthig 





Klaus Brauer W. EGGERICHS 

Programmieren En; 

in FORTRAN 77 Base Il 
Bat 
Sinclair rnit 
QL-Begleiter - | 


Hüthig 





Wolfgang Eggerichs, 





Roman Weiß 
CBASIC 
Das Einführungs- und Nach- 
Wolfgang Eggerichs schlagewerk für den Anwen- 
Mm \ dBASE II der 
U) Hüthig Band 1: Einführung 1985, 172 S., kart., DM 39,80 
2., verb. Auflage 1985 ISBN: 3-7785-1015-0 
Klaus Brauer 180 S., kart., DM 39,80 
Programmieren in ISBN: 3-7785-1147-5 
fO) Hüthig FORTRAN 77 
1985, 308 S., kart., DM 46,- 
Boris Allan ISBN: 3-7785-1068-1 


Sinclair QL-Begleiter 
1985, ca. 100 S., kart., DM 35,- 


ISBN: 3-7785-1101-7 MANFRED WALTER THOMA 
Brücke zum 
Bewegte 
Apple-Grafik 





DOS Toolkit-Erweiterungen 


Apple-Assembler 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 





Manfred Walter Thoma 
CPC 464/664-Praxis 
Band 1: Schwerpunkt Grafik 
1985, 188 S., kart., DM 34,- 
Manfred Walter Thoma ISBN: 3-7785-1149-1 
Brücke zum Commodore 64 

Erweitertes Handbuch 

1985, 277 S.,kart., DM 46,- 

Arne Schäpers ISBN: 3-7785-1095-9 

Bewegte Grafik 

Apple DOS Toolkit Erweite- 





rungen 
Jürgen Kehrel 1985, 305 S., 6 Abb., kart., DM 58,- 
Apple-Assembler lernen ISBN: 3-7785-1150-5 


Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 

1985, 180 S., kart., DM 38,- 
ISBN: 3-7785-1151-3 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: >. . 
Dr. Alfred Hüthig Verlag, Postfach 10 28 69, 6900 Heidelberg 1 = Huthig 
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Ausgabe und Eingabe mi: 


TYPETERM® 


im Slot Ihres 


APPLE IV/lle 


Das _ bedeutet: Computertextverarbeitung von __der 
Schreibmaschinentastatur. Steckerfertig ohne Umbau. 


Kein weiteres Interface erforderlich. 








Paketpreise: 
Alle Maschinen bereits incl. 
TYPETERNM Interface . (DM 479,-) 


CE- 51 mit TYPETERM . . 
CE- 60 mit TYPETERM . . 
CE- 61 mit TYPETERM . . 
CE- 68 mit TYPETERM . . 
CE- 70 mit TYPETERM . . 
EM- 80 mit TYPETERM . . 
EM- 85 mit TYPETERM . . 
EM-100 mit TYPETERM . . 
EM-250 mit TYPETERM . . 


. 1348,— 
. 1652,— 
. 1737, — 
. 2297,- 
. 2758,- 
. 2037,— 
. 3072, 
. 3072,— 


(3) II+ (mit Videx) oder Ile; Z80- 
Karte, 2 Laufwerke; (4) CP/M; 
dBase; (5) DO HMENUE (nach 
Start von dBase); (7) Nachtrag in 
Heft 10/85, S. 21 


IDSEARCH 

(1) Schlüsselwörter in UCSD-Pas- 
cal halbfett drucken (s.a. Disk #9); 
(2) Heft 8/85, S. 48; (3) II+, Ile 
oder IIc; (4) UCSD-Pascal; (5) E(x- 
ecute) IDSEARCH 


FAKULTAET.DEMO 
T.FAKULTAET 

FAKULTAET 

(1) Berechnung von Fakultäten bis 
99991; (2) Heft 8/85, S. 56; (3) Il+ 
(mit G/K), Ile oder Ilc; (4) DOS 
3.3; (5) RUN FAKULTAET.DEMO 


GRAFIK.DEMOS 

(1) Demos zur Anwendung der 
HGR-Grafik; (2) Heft 8/85, S. 67; 
(3) II+, Ile oder Ilc; (4) DOS 3.3 
oder ProDOS; (5) RUN GRAFIK- 
.DEMOS 


ZEICHENJAGD 


(1) Reaktionsspiel als Applesoft- 
Einzeiler; (2) Heft 8/85, S. 69; (3) 
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TYPETERM - ein starkes Interface für starke 
Maschinen! 
® Alle Cursor- u. CTL-Befehle bei Eingabe. 
® 2 Zeichensätze deutsch/ASCIl 
(m. ASCII-Typenrad) 
® Für alle Betriebssysteme 
® Hoch/Tiefstellen, autom. Unterstreichen 
® Var. Zeichen- u. Zeilenabstände 
® Autom. Papierzuführung mit CF-100 
(ab EM-80) vom Stapel 


4 kurzberichte 





Ausgabe mi: 


TYPETERM® 
JUNIOR 


® 3 verschiedene Schriftstärken 

® Automatisches Unterstreichen 

® 2 Zeichensätze deutsch/ASCIl 
(m. ASCII-Typenrad) 

® 2 Zeichenabstände 

® Für alle Betriebssysteme 


ab DM 899,- incl. AX-10 


AX-10 mit TYPETERM JUNIOR . 
CE-25 mit TYPETERM JUNIOR 


. 9075,- TYPETERM-Kit für CE-50 


TYPETERM - Mit diesem steckfertigen Interface an Ihrer BROTHER-Typenradschreib- 


TYPETERM-Interface 
für CE-51 bis EM-250 


maschine lassen Sie Ihren APPLE korrespondenzreif schönschreiben. Wenn Sie 
wollen, benutzen Sie mit allem Komfort die Schreibmaschinentastatur zur Eingabe für 
Ihre Textverarbeitung oder als Ersatz für Ihr Keyboard. Anschließend druckt oder 


schreibt Ihre Schreibmaschine wahlweise ASCIl- oder deutschen Zeichensatz, Hoch- 
und Tiefstellungen, automatisch unterstreichend in variablen Zeichen- und Zeilen- 
abständen, viele Sonderzeichen und vieles andere mehr. Selbstverständlich für alle 
Betriebssysteme. Ideal für den beliebten Wordstar unter CP/M. Die moderne elektroni- 
sche Typenradschreibmaschine steht Ihnen natürlich auch allein weiterhin unverändert 
zur Verfügung. 


TYPETERM JUNIOR - wahlweise mit AX-10 oder CE-25. Unsere besonders günstigen 
Gespanne zur Ausgabe am APPLE, ebenfalls steckfertig. Mit Ihrer Textverarbeitung und 
TYPETERM JUNIOR können Sie dann selbstverständlich auch in verschiedenen 
Schriftstärken wahlweise im deutschen oder ASCII- 
Zeichensatz schönschreiben, zentrieren, automatisch 
unterstreichen und rechts- oder linksbündig schreiben. 
Für alle Betriebssysteme. Auch als moderne elektro- 
nische Typenradschreibmaschinen können sich 
AX-10 und CE-25 sehen lassen: Lift-off-Korrektur, 
schneller Typenradwechsel im Drop-In-System für 

viele verschiedene Schriftarten, 40-bzw. 20- 


Cable Kit A (immer erford. 


899,— 
. 1048,— 


468,— 


EM-80 


Zeichen-Korrekturspeicher usw. usw. 


“ 
interkormn Kock & Mreches GmbH 
Postf. 3004 Isernhagen 4 





Die Zukunft heute 





II+, Ile oder IIc; (4) DOS 3.3 oder DRAWMOUSE.TEXT 

ProDOS; (5) RUN ZEICHENJAGD DRAWMOUSE.CODE 
MOUSE.ASS.TEXT 

T.RAM.FRE.NEU MOUSE.ASS.CODE 

RAM.FRE.NEU MOUSE.LIBRARY 

(1) Neufassung von RAM.FRE; (2) (vgl. Disk #4) 

Heft 1-2/85, S. 22; (3) II+, Ile oder 

IIc; (4) DOS 3.3; (5) unselbstän- TRANSCEND.TEXT 

dig; (6) die Fassung auf Disk #2 TRANSCEND.CODE 

enthält einen Fehler (vgl. Disk #5) 
RAMDISK94.TEXT 

Disk #9 INIT.TEXT 

(UCSD-Pascal; Hefte 1-2/85 - 10/ INSTALL.TEXT 

85) RAMDISK94.CODE 

Folgende Programme sind bereits (vgl. Disk #6) 

auf anderen Sammeldisketten im 

DOS-3.3-Format erschienen. IDSEARCH.TEXT 
IDSEARCH.CODE 

DUPDIR.TEXT (vgl. Disk #8) 

DUPDIR.CODE 

(vgl. Disk #2) ALLG.TEXT 
ALLG.CODE 

GETDOS.TEXT MUEL.TEXT 

GETDOS.CODE MUEL.CODE 

(vgl. Disk #2) (1) Konvertierung von ProDOS- in 
Pascal-Textfiles; (2) Heft 9/85, S. 

MOUSESTUFF.TEXT 58; (3) II+ (mit LC), Ile oder IIc; (4) 

MOUSESTUFF.CODE UCSD-Pascal 1.1/1.2; (5) E(xe- 

TESTMOUS.TEXT cute) ALLG.CODE (oder MUEL.- 

TESTMOUS.CODE CODE); (6) ALLG.CODE oder 


electronic Telefon 05139-87393 


MUEL.CODE muß in Laufwerk #4 
sein. 


CRUNCH.TEXT 
CRUNCH.CODE 
MOVER.TEXT 
MOVER.CODE 
CRUNCHER.TEXT 
CRUNCHER.CODE 
(vgl. Disk #10) 


Disk #10 
(DOS 3.3; Heft 9 + 10/85) 


T.AS.FILER 

AS.FILER 

STARTUP 

ENDUP 

RAMDISKLC 

(1) Datei-Kopierprogramm als Ap- 
plesoft-Erweiterung; (2) Heft 9/85, 
S. 12; (3) II+ (mit G/K), Ile oder 
IIc; (4) DOS 3.3 (auch 64K); (5) 
RUN STARTUP; RUN ENDUP (6) 
RAMDISKLC (von Disk #2) wird 
von STARTUP aufgerufen 


MKBOOT.BAS 


T.MKBOOT.OBJ 
MKBOOT.OBJ 


[2; 


T.DOBOOT.OBJ 

DOBOOT.OBJ 

(1) Installierung eines schnelleren 
ProDOS-Boot-Programms; (2) 
Heft 9/85, S. 20; (3) II+ (mit LC), 
Ile oder IIc; (4) ProDOS; (5) un- 
selbständig 


SUPER.HGR 

SUPER.HGR.ASM 

(1) Hardcopy-Programm für NEC- 
und ITOH-Drucker; (2) Heft 9/85, 
S. 30; (3) II+ oder Ile; NEC- oder 
ITOH-Drucker mit entsprechen- 
dem Interface; (4) DOS 3.3; (5) 
RUN SUPER.HGR (für NEC 8023) 


T.FLAG.MONITOR 
FLAG.MONITOR 
T.FLAG.MONITOR.TEST 
FLAG.MONITOR.TEST 

(1) Taktzähler für Assemblerpro- 
gramme; (2) Heft 9/85, S. 32; (3) 
II+, Ile oder IIc; (4) DOS 3.3; (5) 
BLOAD FLAG.MONITOR; BLOAD 
FLAG.MONITOR.TEST; PR#1 
(Drucker einschalten); CALL 768 


VERSAL 

T.VERSAL 

(1) Umwandlung von Klein- in 
Großbuchstaben der Texte in ei- 
nem Applesoft-Programm; (2) Heft 
9/85, S. 31; (8) II+; (4) DOS 3.3 
oder ProDOS; (5) RUN VERSAL; 
LOAD Programm; CALL 768 


GRAFIK.EDITOR 
GRAF.QUATTRO.1 

(1) Editor für Hires-Grafik; (2) Heft 
10/85, S. 6; (3) II+ (mit G/K), Ile 
oder Ilc; (4) DOS 3.3; (5) RUN 
GRAFIK.EDITOR; (6) GRAF- 
.QUATTRO.1 (schon auf Disk #8) 
wird von GRAFIK.EDITOR automa- 
tisch geladen 


AS.DOUBLE.HIRES.DEMO 
T.AS.DOUBLE.HIRES 
AS.DOUBLE.HIRES 

(1) Double-Hires für Applesoft; (2) 
Heft 10/85, S. 14; (3) Ile (mit 64K- 
Karte) oder IIc; (4) DOS 3.3; (9) 
RUN AS.DOUBLE.HIRES.DEMO 


T.CHARSET 

CHARSET 

DEMO.CTRL 

CTRL.DISABLE 
T.ENABLE.DISABLE 
HTAB1.BUG 

INVERSE.BUG 

T.INT.IIE.NEU 

(1) Beispiel- und Testprogramme 
zu den neuen Ille-ROMs; (2) Heft 
10/85, S. 22; (3) Ile mit neuen 
ROMs (Enhanced Ile); (4) DOS 3.3 
oder ProDOS; (5) BRUN CHAR- 
- SET; RUN DEMO.CTRL; RUN 
CTRL.DISABLE; RUN HTAB1.- 
BUG; RUN INVERSE.BUG; (6) 
T.INT.IIE.NEU gibt alle geänderten 
Stellen als Assemblerlisting wieder 
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EPROM 

T.EPROMMER 

EPROMMER 

(1) Hilfsprogramme zum EPROM- 
Programmiergerät; (2) Heft 10/85, 
S. 40; (3) II+ oder Ile; (4) DOS 
3.3; (5) RUN EPROM; (6) EPROM- 
MER enthält die Firmware des ferti- 
gen Geräts 


CRUNCH.TEXT 

MOVER.TEXT 
CRUNCHER.TEXT 

(1) Freigabe doppelt belegter Spei- 
cher unter UCSD-Pascal 1.2; (2) 
Heft 10/85, S. 50; (3) Ile mit 64K- 
Karte oder IIc; (4) UCSD-Pascal 
1.2 128K-Version; (5) E(xecute) 
CRUNCH (nach dem Assemblie- 
ren und Linken) 


PUZZLE 

PUZZLE.PDL 

(1) Verschiebespiel; (2) Heft 10/ 
85, S. 65; (3) II+, Ile oder IIc; 


Apple-Maus (PUZZLE) oder Pad- 
dies (PUZZLE.PDL); (4) DOS 3.3; 
(5) RUN PUZZLE oder RUN PUZ- 
ZLE.PDL 


UCSD.TEXT 

TURB.PAS 

(1) Pascal-Kompaktkurs für Ap- 
plesoft-Programmierer; (2) Heft 
10/85, S. 46; (3) Il+, Ile oder IIc; 
(4) UCSD.TEXT für Apple-Pascal 
1.1/1.2 und TURB.PAS für Turbo- 
Pascal 3.0 oder älter; (5) E(xecute) 
oder R(un); (6) vorher UCSD.TEXT 
mit GETPAS auf UCSD-Pascal- 
Format und TURB.PAS mit APDOS 
auf CP/M-Format konvertieren; 
Pascal-Kurs als 16seitiger Sonder- 
teil in Heft 12/85 


Disk # 11 
(DOS 3.3; Heft 11/85) 


SPRITE.EDIT 
T.SPRIT.EDIT.ASS 
SPRITE.EDIT.ASS 

T.ASTA 

ASTA 

T.ASTA.DEMO 

ASTA.DEMO 

ASTA.DEMO.1 

AD1 

AD2 

AD3 

AD4 

AD5 

(1) Grafik-Animation mit bewegten 
Sprites und Sprite-Editor; (2) Heft 
11/85, S. 6; (3) II+ (für SPRITE.- 
EDIT mit G/K), Ile oder IIc; (4) 
DOS 3.3; (5) RUN ASTA.DEMO.1 
oder BLOAD ASTA; BRUN ASTA- 
.DEMO 


T.PLAKAT 
PLAKAT.INSTALL 


Inserentenverzeichnis peeker 11/85 


aaa electronic gmbh, Freiburg . 


Abacomp, Frankfurt 
ACS, Detmold 
Brainware, Wiesbaden 


73 
13 
11 
73 


Bühler Elektronik, Baden-Baden . . . 22... 


ccp-datentechnik, Hamburg . 


Copy-Team, Erlangen . 


9 
69 


D.O.S. Computersysteme, Schwäbisch Halı re, 1 


Frank & Britting GmbH, Forst 


N. Hunstig, Münster 
Intus, Waldshut-Tiengen . 


11 
3 
75 


Interkom electronic, Isernhagen . . . 2. ....7 


Jeschke, Kelkheim . 
KFC-Königstein . 


13 
78 


MCI GmbH, Bergisch Gladbach Fe 


E.-W. Meyer, Frohnhausen . 


13 


Micromint Computer GmbH, Ekel. EEE EEE Eu \ 
U. Mohwinkel Electronic, Leverkusen . . . ....713 


Pandasoft, Berlin 
Summagraphics, München 
Tewi-Verlag, München 


Ueding electronics, Menden 


PLAKAT 

PLAKAT.DEMO 

(1) Vergrößerung einer HGR-Seite 
zum Ausdruck von Plakaten; (2) 
Heft 11/85, S. 20; (3) DOS 3.3; (4) 
II+ (mit G/K), Ile oder IIc; (5) RUN 
PLAKAT.DEMO; Anpassung des 
Applesoft-Programms an eigenes 
Drucker-Interface unbedingt erfor- 
derlich! 


DISK.CHIRURG 

(1) Überprüfung einer Diskette auf 
schadhafte Sektoren; (2) Heft 11/ 
85, S. 24; (3) DOS 3.3 (nur 48K); 
(4) II+, Ile oder Ilc; (5) RUN DISK- 
‚CHIRURG 


FILER.O 

FILER.1 

FILER.2 

SYSTEM.PATCH.O 
SYSTEM.PATCH.1 

PRODOS.O 

PRODOS.1 

PRODOS.2 

PRODOS.3 

PRODOS.4 

(1) Umstellung von ProDOS auf 
Laufwerke mit höherer Kapazität; 
(2) Heft 11/85, S. 29; (3) II+ (mit 
LC) oder Ile; Ehring-Controller 


19 
75 
23 

9 





oder Kompatibler (4) ProDOS 
1.0.1 und FILER 1.0.1; (5) s. Heft 


T.PRINT.USING 

PRINT.USING 
T.PRINT.USING.G 
PRINT.USING.G 
PRINT.USING.DATA 
PRINT.USING.G.DATA 
PRINT.USING.DEMO 

(1) Formatierte Ausgabe von Zah- 
len als Applesoft-Erweiterung; (2) 
Heft 11/85, S. 49; (3) Il+, Ile oder 
IIc; (4) DOS 3.3 oder ProDOS; ($) 
RUN PRINT.USING.DEMO (6) 
PRINT.USING.G gibt führende 
Null bei negativen Zahlen (-0.0 bis 
-0.9) aus 


T.REF.TEST 

REF.TEST 

(1) Hilfsprogramm zur Überprü- 
fung von Zeilenverweisen in Ap- 
plesoft; (2) Heft 11/85, S. 55; (3) 
II+, Ile oder IIc; (4) DOS 3.3 oder 
ProDOS; (5) BRUN REF.TEST; zu 
prüfendes Applesoft-Programm la- 
den; dann & eingeben 
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Peeker 11/85 
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und Apple-Maus in einfacher Een a7 al 
und doppelter Hires-Grafik für ? BUTTERDEND. TEA af 
Pascal 1.1/1.2 auf Apple II+/e/c | z 
mit Maus oder Joystick. 

2 Disketten mit umfangreichem 
Manual, DM 93,— 
Erscheinungstermin etwa Ende 
Oktober 


7 Desktop 
Filename: DESKTOP 


u 
LOTTO MIO. OonNIcN 





Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 


Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics”, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UltraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple IIc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL- Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) 

— Pull-down-Menüs 

. — Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— Scrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 


Hüthig Software Service : Postfach 10 2869 - 6900 Heidelberg 


